Question

Viết chương trình tìm tất cả các số tự nhiên có 4 chữ số sao cho số đó chia hết cho 5 và tổng các chữ số đó là 20.

Answer 1

uses crt;
var i,t,d,x,y,j:integer;
st:string;
begin
clrscr;
writeln('cac so tu nhien co 4 chu so sao cho so do chia het cho 5 va tong cac chu so la 20 gom cac so:');
for i:=1000 to 9999 do
begin
t:=0;
str(i,st);
d:=length(st);
for j:=1 to d do
begin
val(st[j],x,y);
t:=t+x;
end;
if (i mod 5=0) and (t=20) then write(i:6);
end;
readln;
end.