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

• Download exemplo18.pas
• Enviar nova versão

Esconder código-fonte

Program exemplo;

{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}

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 m‚dia ‚ ------------------------->',(soma/contador):3:3);

  readkey;

end.

Tocador de vídeo no Lazarus (Delphi 7 para Linux).

Gerador de senha Pascal/Lazarus

Função Fatorial Recursiva em Ada 95

Script que verifica se um número é primo ou não

validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.

Nenhum comentário foi encontrado.