Question

Viết chương trình tìm các số có 3 chữ số abc sao cho

abc=ab+bc+ac

Answer 1

uses crt;
var a,b,c:integer;
begin
clrscr;
for a:=1 to 9 do
begin
for b:=0 to 9 do
begin
for c:=0 to 9 do
if (a*100+b*10+c)=(a*b)+(b*c)+(a*c) then writeln(a,b,c,' ');
end;
end;
readln;
end.