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 online pharmacy india: <a href=" https://indianpharmacyeasy.com/# ">indian pharmacy easy</a> - india pharmacy mail order
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
https://indianpharmacyeasy.com/# online pharmacy india
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
buying prescription drugs in mexico: <a href=" https://mexicanpharmgate.com/# ">mexican pharmacy online medications</a> - mexico drug stores pharmacies
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
https://indianpharmacyeasy.com/# reputable indian pharmacies
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
https://canadiandrugsgate.com/# online canadian pharmacy
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
buying from online mexican pharmacy <a href=" https://www.gztongcheng.top/home.php?mod=space&uid=2849 ">purple pharmacy mexico price list</a> or <a href=" http://www.google.st/url?q=http://mexicanpharmgate.com ">buying prescription drugs in mexico</a>
https://cse.google.co.za/url?q=https://mexicanpharmgate.com mexico drug stores pharmacies
<a href=https://neopvc.com/proxy.php?link=https://mexicanpharmgate.com>mexican mail order pharmacies</a> mexican mail order pharmacies and <a href=https://www.soumoli.com/home.php?mod=space&uid=45179>pharmacies in mexico that ship to usa</a> mexican rx online
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
mexican rx online: <a href=" http://mexicanpharmgate.com/# ">Mexican Pharm Gate</a> - mexico drug stores pharmacies
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
http://indianpharmacyeasy.com/# indian pharmacy paypal
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
http://mexicanpharmgate.com/# pharmacies in mexico that ship to usa
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
reputable indian online pharmacy: <a href=" https://indianpharmacyeasy.com/# ">Online Indian pharmacy</a> - Online medicine order
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
...