Cấu trúc rẽ nhánh và lặp

CN

Viết chương trình nhập vào 2 số nguyên dương m, n (m<n), tính T1 là tích tất cả các số trong phạm vi từ 1 đến n và T2 là tích các số lẻ trong phạm vi từ m đến n và đưa kết quả ra màn hình.

giúp em bài này với ạ, em cám ơn ạ <3

ML
13 tháng 3 2021 lúc 13:25

Program HOC24;

var m,n,i: integer;

t1,t2: longint;

begin

write('Nhap m;n: '); readln(m,n);

t1:=1; t2:=1;

for i:=1 to n do t1:=t1*i;

for i:=m to n do t2:=t2*i;

writeln('T1=',t1);

write('T2=',t2);

readln

end.

Bình luận (0)
BT
12 tháng 3 2021 lúc 20:22

Bình luận (2)

Các câu hỏi tương tự
HN
Xem chi tiết
H24
Xem chi tiết
PH
Xem chi tiết
MD
Xem chi tiết
VL
Xem chi tiết
PT
Xem chi tiết
PG
Xem chi tiết
LS
Xem chi tiết
HN
Xem chi tiết