Tính P = 1* 2* 3 * . . . *n với n là số nguyên được nhập từ bàn phím (Free Pascal)
2 câu trả lời
Program FNG;
Uses crt;
Var n,i: longint;
p: qword;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
p:=1;
For i:=1 to n do
p:=p*i;
Write('P = ',p);
Readln
End.
program kaito;
uses crt;
var n, i, p: integer;
begin
clrscr;
write('Nhap so n: '); readln(n);
p:=1;
for i:=1 to n do p:=p*i;
writeln('Tích cua cac so tu 1 den ',n,' la: P = ',p);
readln
end.
CHÚC BẠN HỌC TỐT!!!
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
