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.

196 Respostas

more_vert
pin up azerbaycan: <a href=" https://1winbrasil.win/# ">pin-up casino giris</a> - pinup az
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
canl? casino: <a href=" https://1wintr.fun/# ">canl? casino siteleri</a> - cazino
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
pin up: <a href=" http://1winindia.tech/# ">пин ап кз</a> - пинап кз
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
пинап: <a href=" https://1winindia.tech/# ">pin up kz</a> - пинап
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
http://1winrussia.online/# 1xbet зеркало
пин ап
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
пин ап казино вход: <a href=" http://1winindia.tech/# ">пин ап казино вход</a> - pin up
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
1xbet официальный сайт: <a href=" http://1winrussia.online/# ">1хставка</a> - 1хбет
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
1xbet официальный сайт <a href=" http://www.zgyhsj.com/space-uid-908897.html ">1xbet зеркало</a> or <a href=" https://maps.google.sc/url?sa=t&url=https://1winrussia.online ">1хставка</a>
https://www.google.mn/url?q=https://1winrussia.online 1хбет
<a href=https://maps.google.li/url?q=https://1winrussia.online>1xbet официальный сайт</a> 1xbet and <a href=http://mi.minfish.com/home.php?mod=space&uid=1186322>1xbet официальный сайт</a> 1xbet зеркало
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
guvenilir casino siteleri <a href=https://1wintr.fun/#>en iyi casino siteleri</a> guvenilir casino siteleri
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
...