• Pascal
    Выведите все числа на отрезке от a до b, являющиеся полными квадратами.
    Примеры:
    Входные данные
    1
    5
    Выходные данные
    1 4

Ответы 4

  • Нечего, бывает)
  • что такое frac(x)?
    • Автор:

      maximjxsz
    • 5 лет назад
    • 0
  • Дробная часть, допустим у вас число 1.5, тогда frac(1.5)=0.5
    • Автор:

      slick73
    • 5 лет назад
    • 0
  • Var a,b,i:integer;      x:real;BeginReadln(a);Readln(b);If a<0 Then a:=1;For i:=a to b do Begin  x:=sqrt(i);  If frac(x)=0 Then Write(i,' '); End;End.
    • Автор:

      gisela
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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