bài 1: viết chương trình nhập N từ bàn phím sao cho 10<=N<=15
bài 2: tính tổng S=1!+2!+3!.........+N!.
mong anh chị giúp đỡ cho em! thank ạ
em mới bắt đầu học pascal nên nhờ các anh chị trong diễn đàn giúp đỡ cho em
Bắt đầu bởi xuannguyen98, 18-06-2014 - 15:00
#2
Đã gửi 17-07-2014 - 09:40
nghethuat102
-
- Thành viên
-
- 147 Bài viết
Trung sĩ
bài 1: viết chương trình nhập N từ bàn phím sao cho 10<=N<=15
bài 2: tính tổng S=1!+2!+3!.........+N!.
mong anh chị giúp đỡ cho em! thank ạ
Bài 1:
var n:integer;
begin
repeat
write('n=');
readln(n);
until (10<=n)and(n<=15);
writeln(n);
readln;
end.
Bài 2: cái n giai thừa này ra kq rất lớn, phải có điều kiện của n chứ:
var i,j,n,S,d:longint;
begin
write('n=');
readln(n);
S:=0;
d:=1;
for i:=1 to n do
begin
d:=d*i;
s:=s+d;
end;
writeln(s);
readln;
end.
1 người đang xem chủ đề
0 thành viên, 1 khách, 0 thành viên ẩn danh
