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

Ответы 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,' ')      else Break;   Writeln;    Write(i);END.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years