Viết chương trình tính n giai thừa pascal

Program CTC_2;

uses crt;

var n:integer;x:longint;

Procedure Giai_Thua(var GT:longint; n:byte);

begin

    GT:=1;

    while n>0 do

    begin

    GT:=GT*n;

    n:=n-1;

    end;

end;

begin

   repeat

   clrscr;

   write('Nhap so n: ');readln(n);

   if n < 0 then begin write('Nhap so n>=0');readln; end;

   until n>=0;

   Giai_Thua(x,n);

   writeln('Giai thua cua ',n,'la:',x);

   readln

end.

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

• Skype ID: tthanhthuy

Bài Kiểm Tra

2019-12-06T03:32:36+11:00 2019-12-06T03:32:36+11:00 Viết chương trình Pascal: Tính n! Lập trình Pascal, Tính n giai thừa https://baikiemtra.com/uploads/news/2019_11/bai-tap-lap-trinh-pascal.jpg

Bài Kiểm Tra https://baikiemtra.com/uploads/bai-kiem-tra-logo.png

Thứ sáu - 06/12/2019 03:31

•  In ra

Viết chương trình Pascal: Tính n!

Program TINH_N_GIAI_THUA;
Uses crt;
Var i,n,gt:integer;
Begin
   Clrscr;
   Writeln(' TINH N GIAI THUA:');
   Writeln('----------------------------------');
   Write('Nhap n ='); readln(n);
   gt:=1;
   For i:=1 to n do
   gt:=gt*i;
   Writeln(n, '!=',gt);
   Readln;
End.

• biscafun
• Chưa có nhóm

• Trả lời

  7

• Điểm

  105

• Cảm ơn

  6

• Tin Học
• Lớp 8
• 10 điểm
• biscafun - 21:58:29 21/06/2020

• Hỏi chi tiết
• 
  Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!

TRẢ LỜI

• Datdoan03
• Chưa có nhóm

• Trả lời

  873

• Điểm

  24096

• Cảm ơn

  620

• Datdoan03
• 22/06/2020

program ct;

uses crt;

var i,n:integer;

      gt:longint;

begin clrscr;

   write('Nhap so n: '); readln(n);

     gt:=1;

   for i:=1 to n do

     gt:=gt*i;

   writeln(n,' giai thua la: ',gt);

readln;

end.

Học tốt!

Hãy giúp mọi người biết câu trả lời này thế nào?

star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star

5

star star star star star

1 vote

• manhquang0306
• team IQ vô cực

• Trả lời

  2260

• Điểm

  41401

• Cảm ơn

  1629

• manhquang0306

Mod Hoidap247

• 07/06/2021

uses crt;
var n,i,gt:longint;
begin
      clrscr;
      write('n='); readln(n);
      gt:=1;
      for i:=n downto 1 do gt:=gt*i;
      writeln(n,'!=',gt);
      readln;
end.

Hãy giúp mọi người biết câu trả lời này thế nào?

star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star

5

star star star star star

1 vote