Viết chương trình tính tổng các số chẳn từ a đến b và a , b nhập từ máy tính

2 câu trả lời

uses crt;
var a,b,i,s:longint;
begin
clrscr;
   write('Nhap a,b: ');readln(a,b);
   for i:=a to b do
      if i mod 2=0 then s:=s+i;
   writeln('Tong cac so chan tu a den b: ',s);
readln
end.

uses crt;

var a, b, k, t : integer;

begin

clrscr;

t := 0;

write('nhap a va b : '); readln(a, b);

for k := a to b do 

if k mod 2 = 0 then t := t + k;

writeln('tong cac so chan = ', t);

readln

end.