Question

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

Answer 1

Program Pr1;
uses crt;
var i:integer;
b,c,x:real;
begin
clrscr;

for i:=100 to 999 do begin
b:=i div 10;
x:=i mod 10;
b:=sqr(b)-sqr(x);
if b=i then writeln(b);
end;
end.