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

bibi

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

 

Nguyễn Lê Phước Thịnh
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.


Các câu hỏi tương tự
Tuyết Lê
Xem chi tiết
Trần Ngọc Hảo
Xem chi tiết
Nhân lê
Xem chi tiết
Nguyễn Ally
Xem chi tiết
Ngô Vịnh
Xem chi tiết
NGUYEN MINH
Xem chi tiết
Nguyễn Hằng Nga
Xem chi tiết
Nguyễn Trần Thiên Bảo
Xem chi tiết
Nguyễn Trần Thiên Bảo
Xem chi tiết