programa pra somar e tirar média
Publicado por NewLinuxer 14/12/2005
[ Hits: 8.093 ]
Programa que pede números inteiros ao usuário, mostrando sua soma a cada numero digitado e a média no final da execução
Program exemplo; {Programa que pede n£meros inteiros ao usu rio, mostrando sua soma a cada numero digitado e a mdia no final da execuÆo} uses crt; Var soma,contador,entrada:integer; Begin clrscr; Writeln('Informe n£meros inteiros ou <0> para sair'); soma:=0; entrada:=1; contador:=0; While (entrada<>0) do Begin writeln; write('Digite o n£mero-------------------->'); read(entrada); soma:=soma+entrada; if entrada<>0 then Begin contador:=contador+1; Writeln('A soma dos n£meros informados --->',soma); end; end; writeln; if contador <> 0 then writeln('A mdia ------------------------->',(soma/contador):3:3); readkey; end.
Gerador de senha Pascal/Lazarus
Programa lê nome (básico) - Pascal para iniciantes
Array de números aleatórios não-repetidos de um intervalo em Pascal
escreve os números de 1 a 9 com repeat - until
Nenhum comentário foi encontrado.
Pra quem contribui com artigos e dicas (0)
Arch Linux - Guia para Iniciantes (5)
tux-gpt - Assistente de IA para o Terminal
Instalação e configuração do Chrony
Programa IRPF - Guia de Instalação e Resolução de alguns Problemas
O Que Fazer Após Instalar Ubuntu 25.04
O Que Fazer Após Instalar Fedora 42
Debian 12 -- Errata - Correções de segurança
Instalando o Pi-Hole versão v5.18.4 depois do lançamento da versão v6.0
Pra quem contribui com artigos e dicas (0)
Monitor fora de escala ao bootar sistema (9)
NAT LoopBack - Hairpin NAT (2)
Alguém poderia me ajudar a escolher peças pra montar um desktop? (18)