Viết chương trình nhập vào từ bàn phím 2 số nguyên dương m và n. Tính tổng các số chẵn trong khoảng từ m đến n. Làm nhanh với ạ huhu mk đg ktra ạ . cám ơn mn
Viết chương trình nhập vào từ bàn phím 2 số nguyên dương m và n. Tính tổng các số chẵn trong khoảng từ m đến n. Làm nhanh với ạ huhu mk đg ktra ạ . cám ơn mn
uses crt;
var i,m,n,s: word;
begin
clrscr;
write (‘nhap m: ‘); readln (m);
write (‘nhap n: ‘); readln (n);
for i:=m to n do
if i mod 2=0 then s:=s+i;
writeln (‘tong la: ‘,s);
readln;
end.
XIN 5 SAO, CÂU TRẢ LỜI HAY NHẤT VÀ CẢM ƠN
program oken;
uses crt;
var i,n,m,s: longint;
begin
clrscr;
write(‘Nhap m va n: ‘); readln(m,n);
for i:=m to n do
if i mod 2=0 then
s:=s+i;
write(s);
readln;
end.