Viết chương trình nhập 2 số nguyên a,b từ bàn phím a
2 câu trả lời
program t;
uses crt;
var a,i,b,s:integer;
begin
clrscr;
write('nhap a,b:);readln(a,b);
for i:=a to b do
if (i mod 5=0) the s:=s+i;
writeln('tong la',s);
readln
end.
- Tổng các số chia hết cho 5 từ a đến b :
uses crt;
var i, a, b, s : integer;
begin
clrscr;
write('Nhap hai so a, b : '); readln(a, b);
s := 0; for i := a to b do
if i mod 5 = 0 then s := s + i;
write('S = ', s);
readln
end.
