Question

Viết chương trình tính tích của N số tự nhiên bằng câu lệnh lặp .
giúp mik vs ạ!

Answer 1

Var a:array[1..1000] of integer;

s:longint;

i,n:integer;

Begin

s:=1;

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i);readln(a[i]);

s:=s*a[i];

End;

Write('Tich la ',s);

Readln

End.

Answer 2

program TinhTich;
var n, i, tich: integer;
begin
  write('Nhap vao n: ');
  readln(n);
  tich := 1;
  for i := 1 to n do
    tich := tich * i;
  writeln('tich cua ', n, ' so tu nhien dau tien la: ', tich);
  readln;
end.