Cáculo de Fatorial, utilizando-se de Repeat - Until
Publicado por NewLinuxer 14/12/2005
[ Hits: 10.409 ]
programam pra efetuar Cáculo de Fatorial, utilizando-se de Repeat - Until
Program Exemplo;
{C culo de Fatorial, utilizando-se de Repeat - Until}
uses crt;
Var numero,cont: integer;
fatorial:real;
Begin
ClrScr;
fatorial:=1;
Write('Digite o n£mero do qual se deseja o fatorial: ');
Readln(numero);
{C lculo do Fatorial}
cont:=numero;
Repeat
fatorial:=fatorial*cont;
cont:=cont-1;
Until cont<2;
Writeln('O fatorial de ',numero,' : ',Fatorial:0:0);
readkey;
End.
armazenar estoque em uma matriz
Exemplo de for que mostra 6 números em ordem crescente
calculo da somatoria da diagonal principal
Nenhum comentário foi encontrado.
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Atualizando o Fedora 42 para 43
Como saber se o seu e-mail já teve a senha vazada?
Como descobrir se a sua senha já foi vazada na internet?









