Из Паскаля в Кумир 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.

Условия задачи:Выведите все точные кубы натуральных чисел и сумму кубов, не превосходящие данного числа

АннаПетух    2   20.01.2021 18:26    1