Составьте программу для решенияСоставьте программу для решения следующей задачи с использование цикла с предусловием: «Выведите все точные квадраты натуральных чисел, не превосходящие данного числа n».
Составьте программу для решенияСоставьте программу для решения следующей задачи с использование цикла
с предусловием: «Выведите все точные квадраты натуральных чисел,
не превосходящие данного числа n».
Гость
Ответ(ы) на вопрос:
Гостьvar n,i:integer;
begin
read (n);
for i:=1 to n do
if sqr(i)<=n then writeln (sqr(i));
end.
Не нашли ответ?
Похожие вопросы