составить блок-схему программы: program proced;
var i, N:integer;
A:array [1..255] of integer; B:array [1..255] of integer; C:array [1..255] of real;
procedure funOne(x :integer);
var g:integer;
begin
for g:=1 to N do
begin
A[g]:=random(91)-43;
write(a[g]:7,'');
end;
writeln;
for g:=1 to N do
begin
B[g]:=random(88)-36;
write(B[g]:7,'');
end;
writeln;
end;
begin
write('Введите кол-во элементов массива N = ');
read(N);
funOne(1);
for i:=1 to N do
begin
C[i]:=(A[i] + B[i]) / 2;
write(C[i]:7:1);
end;
end.

х+54=х+у

х-х+54=у

у=54(ор)-во 2-ой корзине

х=54+38=92(ор)- в 1-ой корзине

92-27=65(ор)- в 3-ей корзине.

 

Надо посчитать количество символов в сообщении: 3 * 25 * 60 = 4500;   сообщение занимает 1125 байт, посчитаем, сколько байт занимает каждый символ: 1125 / 4500 = 0.25;   т.к. символ занимает 0.25 байт, одним байтом можно закодировать 4 символа. байт состоит из 8 бит.  8 / 4 = 2 (количество битов чтобы закодировать каждый символ)  двумя битами можно закодировать 4 символа, значит в алфавите может быть до четырех символов

написано для pascal abc

 

 

uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.

прогоняем числа от 10 до 99 в цикле, учитываем при выводе отрицательные числа.

на  tpascal:

var i: integer;

begin

for i: =10 to 99 do begin

if i mod 3 = 2 then

writeln (i,' ',-i,' ');

i: =i+1;

end;

readln

end.