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 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " 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
0 bình luận về “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).”
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.