Cáculo de Fatorial, utilizando-se de Repeat - Until
Publicado por NewLinuxer 14/12/2005
[ Hits: 10.393 ]
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 Lazarus
Nenhum comentário foi encontrado.
Desktop Linux ganha fôlego enquanto distros refinam experiência e segurança
Wayland em alta, IA em debate e novos ventos para distros e devices
Qt 6.10 e Python 3.14 puxam o ritmo do software livre nesta quarta
Atualizações de Apps, Desktop e Kernel agitam o ecossistema Linux nesta terça-feira
Como mudar o nome de dispositivos Bluetooth via linha de comando
Adicionando o repositório backports no Debian 13 Trixie
Meu Amigo não consegue entrar em meu mundo, via tailscale, hamachi e z... (1)
Erro ao fazer remaster usando Penguin eggs (1)
Warcraft II Remastered no Linux? (0)
queria saber como instalar o android power tools igual ao winux no lin... (7)