Паскаль
Дано n – натуральное число. Вывести на экран все числа, кубы которых не превышает n.
Var n,i:integer;
begin
write(n = ); readln(n);
i:=1;
while i*i*i<=n do
begin
writeln(i, ,i*i*i);
i:=i+1;
end;
end.
Пример:
n = 200
1 1
2 8
3 27
4 64
5 125
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
