Viết chương trình nhập vào 3 số nguyên dương A,B và S. Hỏi rằng trong khoảng từ A đến B có bao nhiêu số nguyên có tổng các chữ số bằng S. Pascal ạ
2 câu trả lời
program bai_giai;
uses crt;
var a,b,s,c,k,t,d,i:longint;
begin
clrscr;
write('nhap a:');readln(a);
write('nhap b:');readln(b);
write('nhap s:');readln(s);
for i:=a to b do
begin
c:=i;
t:=0;
while c<>0 do
begin
k:=c mod 10;
c:=c div 10;
t:=t+k;
end;
if(t=s)then inc(d);
end;
write('ket qua:=',d);
readln;
end.
uses crt;
var a, b, s, cnt, i: longint;
function sumDigits(n: longint): longint;
var i, res: longint;
s: string;
begin
str(n, s);
res:=0;
for i:=1 to length(s) do res:=res + ord(s[i]) - 48;
exit(res);
end;
begin
clrscr;
read(a, b, s);
for i:=a to b do
if sumDigits(i) = s then inc(cnt);
writeln(cnt);
readln; readln;
end.
