Viết chương trình nhập 2 số nguyên a,b từ bàn phím a { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết chương trình nhập 2 số nguyên a,b từ bàn phím a
Viết chương trình nhập 2 số nguyên a,b từ bàn phím a { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết chương trình nhập 2 số nguyên a,b từ bàn phím a
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.