Выведите все точные квадраты натуральных чисел, не превосходящие данного числа N. Формат входных данных Задано единственное число N. Формат выходных данных Необходимо вывести все точные квадраты натуральных чисел, не превосходящие данного числа N.

Question

Виргиния

11 июля, 07:41

+4

Ответы (1)

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

Емилий · Answer 1

var

i, n:integer;

begin

readln (n) ;

for i:=1 to n-1 do write (i*i:5) ;

end.