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