Question

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

Answer 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
  end
end.