Mọi người giúp em với ạ: Viết chương trình nhập vào số nguyên N.Tính và xuất kết quả A.Biết A:=1*2*3*4*...*N
2 câu trả lời
program oken;
uses crt;
var n,i,a:longint;
begin
clrscr;
write('nhap so N: '); readln(n);
a:=1;
for i:=1 to n do
a:=a*i;
writeln('Tich A=',a);
readln;
end.
program tinhtich;
var i, N,A : integer;
begin clrscr;
writeln('Nhap n = :'); readln(n);
A :=1;
For i :=1 to n do A:= A*i;
Writeln('Ket qua cua A la :', A);
readln
End.
Câu hỏi trong lớp
Xem thêm
- Đề 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
