Viết chương trình nhập vào 2 số nguyên dương a,b từ bàn phím . Yêu cầu tính tổng các số chẵn nằm trong đoạn a,b (a
1 câu trả lời
Code đây nhé bạn:
uses crt;
var a,b,i,j,sum: integer;
X: array [1..100] of integer;
Begin
clrscr;
repeat
write('Nhap so A='); readln(a);
write('Nhap so B='); readln(b);
until (a j:=0; sum:=0; for i:=a to b do if i mod 2<>0 then begin inc(j); x[j]:=i; end else sum:=sum+i; writeln('Tong cua so chan tu ',a,' den ',b,' la: ',Sum); write('Cac so le tu ',a,' den ',b,' la: '); for i:=1 to j do write(x[i],' '); readln end.
