Ví dụ 6: Nhập số nguyên N. Tính N giai thừa. Help vs ạ :<

2 câu trả lời

program N_giai_thua;

uses crt;

var N, i: integer;

       Ngt: int64;

Begin

clrscr;

Ngt:= 1;

Writeln('Nhap N'); Readln(N);

For i:=N downto 1 do Ngt:=Ngt*i;

Writeln('giai thua cua N la', Ngt);

readln;

end.

`\text{program Nhap_so_N;}`

`\text{uses crt;}`

`\text{var n: integer;}`

`\text{begin}`

`\text{clrscr;}`

`\text{writeln('Nhap so nguyen'); readln(n);}`

`\text{readln}`

`\text{end.}`

`\text{CHÚC BẠN HỌC TỐT!}`

Câu hỏi trong lớp Xem thêm