Составьте программу для решения следующей задачи с использование цикла
с предусловием: «Выведите все точные квадраты натуральных чисел,
не превосходящие данного числа n».
Ответы
Ответ дал:
0
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.
begin
read (n);
i:=0;
for i:=1 to n do
begin
if sqr(i)<=n then
writeln (sqr(i));
end;
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад