Viết chương trình tích của các số từ 1 đến n ,biết n nhập vào từ bàn phím ,n nguyên dương (trình bày theo xác định bài toán, mô tả ttoan, viết ctr) e cần gấp giúp e vs:(
1 câu trả lời
Xác định bài toán:
INPUT: Số n được nhập từ bàn phím
OUTPUT: n! (n giai thừa)
Mô tả thuật toán:
Bước 1: Nhập n. i<-0, k<-1
Bước 2: i<-i+1, k<-k*i
Bước 3: Nếu i<n thì quay lại bước 2. Nếu sai, đi xuống bước 4
Bước 4: Kết thúc thuật toán.
Chương trinh:
uses crt;
var i,a:integer; k: longint
begin
write('Nhap n: '); readln(a);
k:=1;
for i:=2 to a do k:=k*i;
write('Ket qua: ',k);
end.
Câu hỏi trong lớp
Xem thêm