1.Nhập vào 2 số nguyên a và b (giả sử a { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " 1.Nhập vào 2 số nguyên a và b (giả sử a
0 bình luận về “1.Nhập vào 2 số nguyên a và b (giả sử a<b) tính và đưa ra màn hình tổng của tất cả các số chẵn không lớn hơn b và không nhỏ hơn a 2.Nhập vào 2 số nguy”
1
uses crt;
var a,b,tong:integer;
begin
clrscr;
tong:=0;
write(‘nhap a, b’); readln(a,b);
for i:=a to b do if i mod 2=0 then tong:=tong+i;
writeln(tong);
readln
end.
2
uses crt;
var a,b,tong:integer;
begin
clrscr;
tong:=0;
write(‘nhap a, b’); readln(a,b);
for i:=a to b do if i mod 2<>0 then tong:=tong+i;
writeln(tong);
readln
end.
3
uses crt;
var a,b,tong:integer;
begin
clrscr;
tong:=0;
write(‘nhap a, b’); readln(a,b);
for i:=a to b do if i mod 4=0 then tong:=tong+i;
writeln(tong);
readln
end.