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
http://pinupzerkalo.fun/# пин ап казино
pinup bet and casino
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
https://pinupzerkalo.fun/# бонусы пин ап
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
pin up azerbaycan <a href=https://pinup-az.bid/#>pin up 306</a> pin up 306
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
Пин Ап Казино Официальный Сайт: <a href=" https://biznes-fabrika.kz/# ">пины</a> - Пин Ап Казахстан
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
http://pinup-az.bid/# pinup az
pinup bet and casino
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
Пин Ап Казахстан: <a href=" https://biznes-fabrika.kz/# ">пин ап 634</a> - пин ап казино онлайн
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
пин ап казино онлайн: <a href=" http://biznes-fabrika.kz/# ">пин ап 634</a> - пин ап кз
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
Пин Ап Казино Официальный Сайт в России <a href=http://pinupzerkalo.fun/#>пин ап вход</a> пинко
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
more_vert
sweetbonanzatrpro: <a href=" https://sweetbonanzatr.pro/# ">sweet bonanza</a> - sweet bonanza oyna
thumb_up_off_alt 0 votos positivos thumb_down_off_alt 0 votos negativos
...