sexta-feira, 28 de janeiro de 2011

Fatorial

{Faca um programa que le um valor N inteiro e positivo e que calcula e
 escreve o fatorial de N.}

Uses CRT;
Var
   ValorN, Cont, Fat: Integer;
Begin
   Cont := 1;
   Fat  := 1;
   Clrscr;
   Writeln('Digite um numero: ');
   Read(ValorN);
   While Cont <= ValorN Do
       Begin
          Fat  := Fat * Cont;
          Cont := Cont + 1;
       End;
   Writeln('O Fatorial do numero ', ValorN, ' ‚: ', Fat);
   Readkey;
End.

3 comentários:

  1. daria pra fazer em linguagem C?

    ResponderExcluir
  2. Supeeeeeeeeeeeeer amei <3

    ResponderExcluir
  3. roubeioseuouro14 novembro, 2019

    po crl com este programa podre do crl, brazucas do crl nao tem QI suficiente para criar um programa a modo, continuem a mamar bananas e a roubar seus macacos do crl.
    Tenham um bom dia, do vosso colonizador

    ResponderExcluir