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
1xbet скачать: <a href=" http://1winrussia.online/# ">1xbet официальный сайт</a> - 1xbet зеркало
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
buying from online mexican pharmacy <a href=http://mexicanpharm1st.com/#>mexico drug stores pharmacies</a> buying from online mexican pharmacy
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
mexican rx online: <a href=" http://mexicanpharm1st.com/# ">buying prescription drugs in mexico</a> - pharmacies in mexico that ship to usa
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
generic ed pills: <a href=" http://drugs1st.store/# ">buy ed pills online</a> - pills erectile dysfunction
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
п»їbest mexican online pharmacies: <a href=" http://mexicanpharm1st.com/# ">mexican online pharmacies prescription drugs</a> - buying from online mexican pharmacy
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
https://mexicanpharm1st.com/# mexico drug stores pharmacies
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
diabetes and ed: <a href=" http://drugs1st.store/# ">otc ed pills</a> - ed therapy
https://mexicanpharm1st.com/# mexican online pharmacies prescription drugs
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
mexican border pharmacies shipping to usa <a href=https://mexicanpharm1st.com/#>mexican border pharmacies shipping to usa</a> mexico drug stores pharmacies
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
best india pharmacy: <a href=" https://indianpharm1st.com/# ">best india pharmacy</a> - indian pharmacies safe
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
...