//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
var a := SeqWhile(1, i -> i + 1, i -> i < 20);
Println(a);
Println(a.Where(x -> x mod 3 = 0).Average);
Writeln();
for var i := ReadInteger('a =') to ReadInteger('b =') do
writeln(i, ' ', i * i, ' ', i * i * i);
end.
Begin
writeln(' * ');
writeln(' * * ');
writeln('* *');
writeln(' * * ');
writeln(' * ')
end.
I = 100 Кбайт = 819200 бит
N = 65536
i = 16
I = i * k
k = количество страниц * количество строк * количество символов на строке
819200 / 16 / 50 / 16 = 64
Ответ: 64 символа
Program n1;
Uses CRT;
Var k: integer; m,y:real;
begin
Readln(m,y);
If m<y then writeln('NO')
else
if m=y then writeln('1')
else
While m>y do
begin
m:=m/105*100;
k:=k+1;
end;
writeln(k);
readln
end.