Question

viết chương trình tính tích của 20 số tự nhiên đầu tiên

Answer 1

Mình không có phần mềm Pascal đề thử nên mình viết thuật toán thôi , bạn dựa vào để viết chương trình nhé. Mình viết dạng tổng quát cho N số tự nhiên đầu tiên.

Bước 1. Nhập N và dãy số \(a_1,...,a_N\)

Bước 2. \(i\leftarrow0\) , \(P\leftarrow1\)

Bước 3. \(i\leftarrow i+1\)

Bước 4. 4.1 Nếu \(i>N\) thì kết thúc thuật toán và đưa ra kết quả

4.2 \(P\leftarrow P\cdot i\) rồi quay lại bước 3

Answer 2

program tinhtich;

uses crt;

var i,n:integer;

S:longint;

begin

n:=20;

S:=1;

for i:=1 to N do S:=S*i;

write('tich cua,'n', so tu nhien dau tien la',S);

readln;

end.

chúc bạn thi tốt :)

Answer 3

Ngu thật gì mà không biết làm :

program : tinh_tich;

uses : crt;

var : i;P : integer ;

begin

P:=1;

for i:=1 to 20 do

P:=P*i;

Writeln ('Tich la :',P);

Readln

End.

Answer 4

Bước 1 chỉ cần nhập N thôi.

Answer 5

uses crt;

var i,j:integer;

BEGIN

clrscr;

i:=1;

for j:=1 to 20 do i:=i*j

writeln('tich la,i);

readln;

END.