• программирование паскаль Вводятся целые числа a и b. Гарантируется, что a не превосходит b. Выходные данные Выведите все числа на отрезке от a до b, являющиеся полными квадратами.

Ответы 2

  • program laba;var a, {нижний придел последовательности} b, {верхний придел последовательности} i {счётчик цикла} : integer;var realSqrt {в этой переменной проводим расчёты} : real;
    • Автор:

      trixie
    • 5 лет назад
    • 0
  • begin Write('Enter A: '); Readln(a); {вводим a} Write('Enter B: '); Readln(b); {вводим b} Write('Square numbers is: '); for i:=a to b do {цикл от a, до b} begin realSqrt:=Sqrt(i); {получаем квадратный корень из числа на текущей итерации цикла} if 0 = frac(realSqrt) then {получаем из этого числа дробную часть, если она равняется 0, то число является "полным квадратом"} begin Write(i, '; '); {выводим данное число на экран} end; end;end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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