Предмет: Информатика, автор: YuliaKartoshka

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

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

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

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

Ответы

Автор ответа: Аноним

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.

Приложения: