Диск наверное...................
Это обычный режим.
_________________
В одном <span>Кбайте - 1024 байта
2*1024=2048 байт
2048+101=2149</span>
Паскаль.
<span>var x,n: integer;
begin
write('n = ');
readln(n);
x := 1;
while sqr(x) < n do begin
write(sqr(x),' ');
x := x + 1
end;
readln
end.
кумир вроде как тотак.
</span>заготовь мне переменные
А, И: целые будут;
начинай
пишистроку ("Введите натуральное число: ");
читай (А) ;
в цикле по И от 1 до А начинай
пишистроку (И, ":");
пишистроку (И*И, " ",И*И*И) ;
пишистроку;
кончай;
читай;
<span>кончай!</span>