programa pra somar e tirar média
Publicado por NewLinuxer 14/12/2005
[ Hits: 7.975 ]
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.
Transformação entre as escalas térmicas Kelvin, Fahrenheit e Celcius
script para ler um vetor e mostrar o conteúdo
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (6)
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
O mínimo que você precisa saber sobre o terminal (parte 2)
O mínimo que você precisa saber sobre o terminal (parte 1)
Como iniciar uma máquina virtual do VirtualBox automaticamente no boot do LUbuntu 18 LTS
Como deixar as abas do Firefox mais fininhas
Mudar o gerenciador de login (GDM para SDDM)
"Tentando" fazer com que programas rodem no Wayland e no X11
Google Chrome não para de escrever no disco (2)
Notebook samsung 550xda não reconhece mais SSD (1)
Isso ta me cansando [RESOLVIDO] (4)
Inicio de uso do Mint 32bits (19)
Notebook instalado com Linux Debian de fábrica dando problema (3)