Viết chương trình tìm các số có ba chữ số sao cho số đó bằng n lần tổng các chữ số của nó. (n được nhập từ bàn phím).
:))) Giúp đi ạ
Viết chương trình tìm các số có ba chữ số sao cho số đó bằng n lần tổng các chữ số của nó. (n được nhập từ bàn phím).
:))) Giúp đi ạ
uses crt;
var x,y,z,n : integer;
begin clrscr;
write(‘Nhap n:’); readln(n);
for x:=1 to 9 do
for y:=0 to 9 do
for z:=0 to 9 do
if n*(x+y+z) = x*100+y*10+z then
write(‘So thoa man de la :’, x,y,z, ‘ ‘);
readln
end.
program ct;
uses crt;
var a,b,c,n,d:byte;
begin clrscr;
write(‘Nhap so n: ‘); readln(n);
writeln(‘Cac so do la ‘);
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if (a*100+b*10+c) = n*(a+b+c) then
begin
writeln(a,b,c:3);
inc(d);
end;
writeln(‘Co ‘,d,’ so thoa man’);
if d=0 then writeln(‘Khong co so nay!’);
readln;
end.
Học tốt!