Bài tập tự luyên:
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": " Bài tập tự luyên: 1. Nhập vào 2 số nguyên a và b (giả sử a
0 bình luận về “Bài tập tự luyên: 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.”
program oken;
uses crt;
var a,b,i,tong:integer;
begin
clrscr;
write(‘nhap a: ‘); readln(a);
write(‘nhap b: ‘); readln(b);
if a<b then
for i:=a to b do
if i mod 2=0 then tong:=tong+i;
writeln(‘tong cua tat ca cac so chan khong lon hon b va nho hon a: ‘,tong);
Program BTH; uses crt; var n,k,i,tong:longint; Begin clrscr; write(‘Nhap a: ‘); readln(n); write(‘Nhap b: ‘); readln(k); for i:=n to k do if i mod 2=0 then tong:=tong+i; writeln(‘Tong cac so chan khong lon hon ‘,k,’ va nho hon ‘,n,’ : ‘,tong); readln; end.
program oken;
uses crt;
var a,b,i,tong:integer;
begin
clrscr;
write(‘nhap a: ‘); readln(a);
write(‘nhap b: ‘); readln(b);
if a<b then
for i:=a to b do
if i mod 2=0 then tong:=tong+i;
writeln(‘tong cua tat ca cac so chan khong lon hon b va nho hon a: ‘,tong);
readln;
end.
Program BTH;
uses crt;
var n,k,i,tong:longint;
Begin
clrscr;
write(‘Nhap a: ‘); readln(n);
write(‘Nhap b: ‘); readln(k);
for i:=n to k do
if i mod 2=0 then tong:=tong+i;
writeln(‘Tong cac so chan khong lon hon ‘,k,’ va nho hon ‘,n,’ : ‘,tong);
readln;
end.