Viết chương trình nhập vào số nguyên dương a và b, đếm và tính tổng các số chia hết cho 5 trong phạm vi từ a đến b(a<b), rồi đưa kết quả ra màn hình. ‘Mọi người giúp e với.e cám ơn
2 câu trả lời
uses crt;
var a,b,s,d,i: integer;
begin
clrscr;
repeat
clrscr;
write ('nhap a: '); readln (a);
write ('nhap b: '); readln (b);
if a>=b then writeln ('dieu kien a<b !!! vui long nhap lai !!!!');
readln;
until a<b;
for i:=a to b do
begin
if i mod 5=0 then
begin
d:=d+1;
s:=s+i;
end;
end;
writeln ('co ',d,' so chia het cho 5 trong pham vi tu a-->b');
writeln ('tong cac so chia het cho 5 tu a-->b la: ',s);
readln;
end.
uses crt;
var a,b,i,s,d:longint;
begin
clrscr;
write('a,b(a<b)=');readln(a,b);
for i:=a to b do if i mod 5=0 then begin inc(s,i); inc(d); end;
writeln('So chia het cho 5 trong pham vi tu a den b: ',d);
writeln('Tong cac so chia het cho 5 trong pham vi tu a den b: ',s);
readln
end.
