Cáculo de Fatorial, utilizando-se de Repeat - Until
Publicado por NewLinuxer 14/12/2005
[ Hits: 10.310 ]
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.
Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus
Soma dois Valores e exibe o resultado
Crivo de Eratóstenes Simples em Ada 95
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Iinstalar o Scanner Kodak i940 no Linux Mint 19/20? (4)
Pastas da raiz foram para a área de trabalho [RESOLVIDO] (11)
Será que eu deveria apreender C/C++ para desenvolver para Linux? (4)