Сколько раз выполнится цикл: i:=6; while i<6 do i:=i+3
сделать в программе паскаль

один символ - один байт, значит надо кол-во бит поделить на 8:

24576 /8 = 3072 символа

поскольку http: \\ftp. не бывает, то ftp: \\schools.ru\program.exe

1, 2, 5, 9 -однозначные числа

10, 25, 40, 41 - двузначные числа

1, 2, 11, 29 - простые числа

var

a: array [1..20] of integer;

i,max: integer;

begin

max: =0;

for i: =1 to 20 do

begin

if i mod 2=0 then a[i]: =random(50)+50

else  a[i]: =random(50)+150;

if a[i]> max then max: =a[i];

write(a[i]: 4);

end;

writeln;

writeln('max=',max);

end.