Moril
6 год назад
Выведите все точные квадраты натуральных чисел, не превосходящие данного числа N.Входные данныеЗадано единственное целое число NВыходные данныеНеобходимо вывестивсе точные квадраты натуральных чисел, не превосходящие данного числа N.
ОТВЕТЫ
Kapiton
Oct 24, 2020
var n,i,j: integer;
begin
write('n = '); readln(n);
j:=Trunc(sqrt(n));
for i:=1 to j do write(i*i,' ');
end.
n = 100
1 4 9 16 25 36 49 64 81 100
begin
write('n = '); readln(n);
j:=Trunc(sqrt(n));
for i:=1 to j do write(i*i,' ');
end.
n = 100
1 4 9 16 25 36 49 64 81 100
253
Смежные вопросы:
