programa pra somar e tirar média
Publicado por NewLinuxer 14/12/2005
[ Hits: 8.146 ]
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.
Visualizador de imagem Pascal/Lazarus
Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus
intercalar dois arrays (vetores)
Nenhum coment�rio foi encontrado.
A arte e a prática da Disciplina a longo prazo
Topgrade - Atualize seu sistema Linux inteiro com um único comando
Customizar a Instalação do Linux Debian com Preseed
Site com diversos emojis para seus códigos
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Preciso de opiniões sobre meus programas (3)
criar alias do comando "ls -la" (14)