Var
a, b, i:integer;
Begin
write('Введите значения a и b: ');
read(a, b);
writeln('Цикл for');
for i := b downto a do write(i*i*i, ' ');
writeln();
writeln('Цикл while');
i := b;
while i >= a do
begin
write (i*i*i, ' ');
dec(i);
end;
writeln();
writeln('Цикл repeat');
i:=b;
repeat
write(i*i*i, ' ');
dec(i)
until i < a
writeln();
End.
60символов
30 строк
иф.объем ?
---——————
Решение:
1) 2в 6 стпени = 64 >60
следует
2) 6бит ×60 =7200 бит в строке
3)7200×30 =216000бит (занимает одна страница )
4)216000/8=27000 байт
5)2700:1024