Thứ Sáu, 6 tháng 5, 2011

Tình giai thừa trong Pascal (n!)

program tinhgiaithu;
uses crt;
var n,i: integer;
        gt: longint;
begin
write('Giai thua cua n='); readln(n);
    gt:=1;
if N<0 then writeln(#7,'Khong duoc vi N<0')
    else
   begin
      if N>0 then
     for i:=1 to N do gt:=gt*i;
    writeln(N,'!=',gt);
   end;
readln
end.

Share this post

0 nhận xét

:)

:-)

:))

=))

:(

:-(

:((

:d

:-d

@-)

:p

:o

:>)

(o)

[-(

:-?

(p)

:-s

(m)

8-)

:-t

:-b

b-(

:-#

=p~

:-$

(b)

(f)

x-)

(k)

(h)

(c)

cheer

Posts RSS ∙ Comments RSS ∙ Back to top
© 2011 Giới trẻ sơn tượng ∙ Designed by BlogThietKe
Released under Creative Commons 3.0 CC BY-NC 3.0