Выведите все точные квадраты натуральных чисел, не превосходящие данного числа n. формат входных данных задано единственное число n. формат выходных данных необходимо вывести все точные квадраты натуральных чисел, не
превосходящие данного числа n.

дэн165 дэн165    1   03.03.2019 15:00    143

Ответы
ankka1600 ankka1600  24.05.2020 00:12

var 

i,n:integer;

begin

readln(n);

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

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика