• Решите пожалуйста задачу в PascalABC с помощью циклов while и repeat. Найти все трехзначные числа которые можно представить разностью между квадратом числа образованного первыми двумя цифрами и квадратом третьей цифры.

Ответы 1

  • PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018Внимание! Если программа не работает, обновите версию!begin  // только у чисел 100 до 319 квадрат первых двух цифр трехзначный.   var i:=10;  while i<=31 do begin    var j:=0;    repeat      if i*i-j*j=10*i+j then Print(10*i+j);      j+=1    until j>9;    i+=1  endend.
    answer img
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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