Tuấn Đang Học Bài
Hỏi từ APP VIETJACK
viết chương trình tính tổng ,tích các số tự nhiên nhập từ bàn phím (sử dụng miếng mảng)
Quảng cáo
2 câu trả lời 366
program Tinh_tich;
uses crt;
var i,n: Integer;
Tich : Longint;
Begin
clrscr;
write('Nhap n :') ; readln(n);
Tich:=0;
for i:=1 to n do Tich :=Tich *i;
writeln ( 'Tich cua cac so tu 1 den n la:',Tich);
readln;
end.
program Tinh_tich;
uses crt;
var i,n: Integer;
Tich : Longint;
Begin
clrscr;
write('Nhap n :') ; readln(n);
Tich:=0;
for i:=1 to n do Tich :=Tich *i;
writeln ( 'Tich cua cac so tu 1 den n la:',Tich);
readln;
end.
Tuấn Đang Học Bài
· 4 năm trước
Mik cần tính tổng nx ạ!
☯nadttg,rudde de☯
· 4 năm trước
ukm
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45577
-
Đã trả lời bởi chuyên gia
28960 -
Hỏi từ APP VIETJACK28509
Gửi báo cáo thành công!
