Составьте программу для решения следующей с использование цикла с предусловием: «выведите все точные квадраты натуральных чисел, не превосходящие данного числа n».

Kiber04ек Kiber04ек    3   02.06.2019 18:00    0

Ответы
berezovskayati berezovskayati  03.07.2020 11:58
Var i,n:integer;
begin
read (n);
i:=0;
for i:=1 to n do 
begin
if  sqr(i)<=n then
writeln (sqr(i));
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика