Viết chương trình tính tổng của các số chẵn từ a đến b đưa kết quả ra màn hình
2 câu trả lời
uses crt;
var a,b,t,i:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
t:=0;
for i:=m to n do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan tu ',a,' den ',b,' la: ',t);
readln;
end.