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.