Mọi người giúp mình với: Viết chương trình tính n dãy thừa số, n:=1*2*3*...*n(n cho trước); Giúp mình với :(((
2 câu trả lời
Var n, i, kq: LongInt;
BEGIN
ReadLn(n);
kq := 1;
for i:=2 to n do kq := kq * i;
WriteLn(kq);
END.
Bai
program BTH;
Uses Crt;
Var i,n,t:longint;
Begin
clrscr;
Write('Nhap n: ');readln(n);
i:=1;
for t:=1 to n do
i:=t*i;
writeln('Tong day so tren la: ',i);
readln;
end.
- Đề 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
