Решите пожалуйста задачу в PascalABC с помощью циклов while и repeat. Найти все...

Question

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

Comments

Имеется в виду, что если число состоит из цифр abc, то квадрат ab минус квадрат с должен дать именно число abc или любое трехзначное? Например, число 147 = 14^2 - 7^2, а число 150 не равно 15^2-0^2, но тоже трехзначное.

---

Именно число abc.Но решение уже не нужно. Спасибо))

---

Раз задача опубликована, решение все равно давать надо.

Answer 1

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

begin
  // только у чисел 100 до 319 квадрат первых двух цифр трехзначный.
  var i:=10;
  while i<=31 do begin<br>    var j:=0;
    repeat
      if i*i-j*j=10*i+j then Print(10*i+j);
      j+=1
    until j>9;
    i+=1
  end
end.

---