Дано число n
A) напечатать те натуральный числа , квадрат которых не превышает n
B) Найти первое натуральному число , квадрат которого больше n
Ответы
Ответ дал:
0
VAR
n: Real;
i: Integer;
BEGIN
Read(n);
For i := 1 to Round(Sqrt(n))+1 do
if (i*i <= n) then Write(i,' ')
else Break;
Writeln;
Write(i);
END.
n: Real;
i: Integer;
BEGIN
Read(n);
For i := 1 to Round(Sqrt(n))+1 do
if (i*i <= n) then Write(i,' ')
else Break;
Writeln;
Write(i);
END.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад