programa pra somar e tirar média
Publicado por NewLinuxer 14/12/2005
[ Hits: 8.213 ]
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.
calcular o percentual de pessoas que sao maiores de idade
programa para selecionar os números em posições impares em array de 19 espaços e calcular a media
Calculadora utilizando until e case
Extenso em dll, com parâmetros adicionais
Nenhum comentário foi encontrado.
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Atualizando o Fedora 42 para 43
Como saber se o seu e-mail já teve a senha vazada?
Como descobrir se a sua senha já foi vazada na internet?
Instalação dualboot Windows 11 e Debian 13 (6)
Mint Xfce não mantém a conexão no wi-fi (0)
Programa fora de escala na tela do pc (36)
Eu queria adicionar a incon do wifi e deixa transparente no fluxbox no... (0)









