Viết chương trình tính tổng các số chẵn và chia hết cho 3 trong phạm vi từ a đến b ( a<b).
2 câu trả lời
var a,b,s,i:integer;
begin
clrscr;
write(‘Nhap a: ‘);readln(a);
write(‘Nhap b: ‘);readln(b);
for i:=a to b do if (a mod 3=0) then s:=s+i;
writeln(‘Tong la: ‘,s);
readln;
end.
uses crt;
var a,b,s,i:integer;
begin
clrscr;
write('Nhap a: ');readln(a);
write('Nhap b: ');readln(b);
for i:=a to b do if (a mod 3=0) then s:=s+i;
writeln('Tong la: ',s);
readln;
end.
