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.

$\text{Tham khảo}$