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.

Theo: Shopkienthuc
Nguồn: KienThucViet.Net

Post Tags:

THPT Tin Học

Jillur Rahman

I'm Jillur Rahman. A full time web designer. I enjoy to make modern template. I love create blogger template and write about web design, blogger. Now I'm working with Themeforest. You can buy our templates from Themeforest.

Website: http://masala-jr.blogspot.com/

Social Links:
Rss
Facebook
Twitter
Google+
Linkedin
Youtube