Дано натуральное число х. Вывести на экран квадраты целых натуральных чисел, не пвышающие число х. Дано: 25 Найти: 1 4 9 16 25

Question

Информатика

Арефий

21 мая, 04:16

Дано натуральное число х. Вывести на экран квадраты целых натуральных чисел, не пвышающие число х. Дано: 25 Найти: 1 4 9 16 25

+3

Ответы (1)

Знаете ответ на вопрос?

Владиславка · Answer 1

Var

i, x:integer;

begin

Readln (x) ;

i: = 1;

while (i*i < = x) do

begin

Write (i*i, ' ') ;

i:=i+1;

end;

end.

Пример:

224

1 4 9 16 25 36 49 64 81 100 121 144 169 196