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

Question

Информатика

Натоха

6 мая, 15:24

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

+1

Ответы (1)

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

Ларион · Answer 1

Var

i, x:integer;

begin

Readln (x) ;

For i: = 1 to x do

if i*i < = x then Write (i*i, ' ')

else break;

end.

Пример:

135

1 4 9 16 25 36 49 64 81 100 121