Выведите все точные квадраты натуральных чисел, не превосходящие данного числа N. Формат входных данных Задано единственное число N. Формат выходных данных Необходимо вывести все точные квадраты натуральных чисел, не превосхо...
Выведите все точные квадраты натуральных чисел, не превосходящие данного числа N.
Формат входных данных
Задано единственное число N.
Формат выходных данных
Необходимо вывести все точные квадраты натуральных чисел, не превосходящие данного числа N.
Гость
Ответ(ы) на вопрос:
Гостьvar
n, i: integer;
begin
read(n);
i := 1;
while i * i <= n do
begin
write(i * i, ' ');
i := i + 1;
end;
end.
Не нашли ответ?
Похожие вопросы