Lập trình đơn giản

H24

tính tổng các số chẵn từ m đén n

Tính tổng các số lẻ từ m dến n

Giúp mik vs mn ơi

 

NT
2 tháng 2 2021 lúc 13:09

uses crt;

var m,n,t1,t2,i:integer;

begin

clrscr;

repeat

write('Nhap m='); readln(m);

write('Nhap n='); readln(n);

until m<=n;

t1:=0;

t2:=0;

for i:=m to n do 

begin

if i mod 2=0 then t1:=t1+i

else t2:=t2+i;

end;

writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t1);

writeln('Tong cac so le tu ',m,' den ',n,' la: ',t2);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
TL
Xem chi tiết
TH
Xem chi tiết
NL
Xem chi tiết
NA
Xem chi tiết
NV
Xem chi tiết
NM
Xem chi tiết
NN
Xem chi tiết
NB
Xem chi tiết
NB
Xem chi tiết