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
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
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.