menu search
brightness_auto
more_vert
To tentando fazer um programa que tire o numero fatorial do que o usuário entrar.
Pra quem nao sabe, fatorial se calcula assim:
2!=2.1
5!=5*4*3*2*1
10!=10*9*8*7*6*5*4*3*2*1
To fazendo em pascal mas tenho que fazer usando só while, e ta dando errado alguma coisa porque quando boto pra calcular ele mostra só o número que foi de entrada vezes 1 que seria o ultimo numero a multiplicar.
por enquanto o meu ficou assim:

Program Pzim ;
 Uses
 CRT;
 var
 N,M,I,resp:real;
 Begin
  resp:=1;
  while(resp=1)do
     begin
     writeln('Digite o numero fatorial: ');
     readln(N);
     I:=N;
     while(I>1)do
            begin
           M:=N*(I-1);
           I:=I-1;
          end;
     writeln('O numero e: ',M:7:2);
     writeln('Digite 1 para continuar e 2 para fechar');
    readln(resp);
    end;
 End.
thumb_up_off_alt 2 votos positivos thumb_down_off_alt 0 votos negativos

Sua resposta

Seu nome (opcional):
Privacidade: Seu email será usado apenas para enviar estas notificações.

201 Respostas

more_vert
cheapest Gabapentin GabaPharm: <a href=" http://gabapharm.com/# ">Buy gabapentin for humans</a> - buy gabapentin
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
https://rybpharm.com/# buy rybelsus canada
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
ed pills <a href=" http://cwk.freehostia.com/viewpro.php?username=mcneouivqg ">buy ed pills</a> or <a href=" http://www.sublimemusic.de/url?q=https://erepharm.com ">erepharm pills</a>
http://images.google.com.sg/url?q=http://erepharm.com ed pills
<a href=https://www.google.nu/url?q=https://erepharm.com>ED meds online with insurance</a> cheapest ed pills ere pharm and <a href=https://www.donchillin.com/space-uid-423811.html>buy ed pills</a> ED pills non prescription
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
buy lasix fur pharm <a href=https://furpharm.com/#>fur pharm</a> furosemide furpharm.com
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
https://furpharm.com/# furosemide fur pharm
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
buy gabapentin: <a href=" https://gabapharm.com/# ">buy gabapentin india</a> - GabaPharm Gabapentin
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
rybpharm <a href=https://rybpharm.com/#>buy rybelsus</a> buy rybelsus
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
http://gabapharm.com/# gabapentin GabaPharm
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
GabaPharm: <a href=" http://gabapharm.com/# ">gabapentin GabaPharm</a> - buy gabapentin india
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
...