Дано число n A) напечатать те натуральный числа , квадрат которых не превышает n B)...

Question

Дано число n
A) напечатать те натуральный числа , квадрат которых не превышает n
B) Найти первое натуральному число , квадрат которого больше n

Answer 1

VAR
   n: Real;
   i: Integer;
BEGIN
   Read(n);
   
   For i := 1 to Round(Sqrt(n))+1 do
      if (i*i <= n) then Write(i,' ')</em>
      else Break;
   Writeln; 
   Write(i);
END.