Var i,n:integer;
p:longint;
Begin
Write('Nhap n = ');readln(n);
p:=1;
For i:=2 to n do p:=p*i;
Write('Tich la ',p);
Readln;
End.
Đúng 0
Bình luận (0)
Bài 7. Câu lênh lặp
Các câu hỏi tương tự
Viết chương trình tính tích n số tự nhiên đầu tiên khác 0 ( n được nhập từ bàn phím). Mọi người giải nhanh câu này giúo mình với , chú ý n khác 0 nhé
viết chương trình tính tích của n số tự nhiên đầu tiên,với N số tự nhiên được nhập từ bàn phím(sử dụng câu lệnh While..Do
Bài 1: Viết chương trình tính tổng các số chẵn từ 10 đến 50?
Bài 2: Viết chương trình giải bài toán sau: Tính tổng A ( n là số tự nhiên được nhập từ bàn phím)
A= 1.3 + 2.4 + 3.5 +...+ n(n+2).
Giúp mình với nhanh nhanh nha.
Viết chương trình điếm số chẳn của N số tự nhiên đầu tiên, với N là số tự nhiên nhập từ bàn phím
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
Viết chương trình tính tích n số tự nhiên được nhập từ bàn phím (Sử dụng câu lệnh while... do)
viết chương trình tính tổng n số lẻ đầu tiên với n được nhập bằng bàn phím. Gợi ý for i:=1 t on do s:=s+(2i-1)
1 Viết chương trình tính n!=1.2.3.4....n vs n là số nguyên được nhập vào từ bàn phím.
2 Viết chương trình tính t=1+2+3+4+....+n vs n là số nguyên được nhập vào từ bàn phím.
viết chương trình in ra màn hình tính tổng các số chẵn có trong dãy số từ 0 đến n (n được nhập từ bàn phím)
Viết chương trình tính tổng các số là bội của 2 từ 0--> n ( n nhập từ bàn phím)