Люди добрые ! выведите все точные квадраты натуральных чисел, не превосходящие данного числа n. входные данные задано единственное целое число n выходные данные необходимо вывести все точные квадраты натуральных чисел, не превосходящие данного числа n. примеры входные данные 15 выходные данные 1 4 9

Strelkov18 Strelkov18    1   15.07.2019 17:30    4

Ответы
Var n,k:integer;
begin
write('n='); readln(n);
k:=1;
while k*k<=n do
 begin
 writeln(k*k);
 k:=k+1;
 end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика