Question

viết chương trình tìm tất cả số có 3 chữ số sao cho tổng các chữ số bằng tích của chúng.Làm pascal

Answer 1

uses crt;

var a,b,c:integer;

begin

clrscr;

for a:=1 to 9 do 

for b:=0 to 9 do 

for c:=0 to 9 do 

if (a+b+c=a*b*c) then writeln(a,b,c,' ');

readln;

end.

Answer 2

Tổng 3 chữ số của số bé nhất có 3 chữ số có tích 3 chữ số bằng 3 là ?