Question

como funciona o jogo da magia negra

Answer 1

Program mostrarnr;
uses crt;
var
  mi, n : real;
  par, impar, pos, neg, qtn, sp, qtnip, snip  : integer;
begin
  repeat
    n:= 0; mi:=0; par:=0; impar:=0; pos:=0; neg:=0; qtn:=0; sp:=0; qtnip:=0; snip:=0;
    clrscr;
    writeln ('Vamos digitar v rios n£meros inteiros, quando quiser parar, digite zero');
    writeln;
      write ('Digite um n£mero: ');
      readln(n);
    while n<>0 do
    begin
      while int(n)<>n do
      begin
        writeln('Por favor digite s¢ n£meros inteiros');
        writeln;
        write ('Digite um n£mero inteiro: ');
        readln(n);
      end;
      if (trunc(n) mod 2=0) then
      begin
        par:= par + 1;
        if n>0 then
        sp:= sp + trunc(n);
      end
      else
      begin
        impar:= impar +1;
        if n>0 then
        begin
          qtnip:= qtnip +1;
          snip:= snip + trunc(n);
          mi:= snip/qtnip;
        end;
      end;
      if n>0 then
        pos:= pos + 1
      else
        neg:= neg + 1;
     qtn:= qtn + 1;
    writeln;
    write ('Digite outro n£mero: ');
    readln(n);
    end;
    writeln;
    writeln ('A quantidade de nr pares digitados ‚: ',par);
    writeln ('A quantidade de nr impares digitados ‚: ',impar);
    writeln ('A quantidade de nr positivos digitados ‚: ',pos);
    writeln ('A quantidade de nr negativos digitados ‚: ',neg);
    writeln ('A quantidade de nr digitados ‚: ',qtn);
    writeln ('A soma dos nr pares positivos ‚: ',sp);
    writeln ('A media de nr impares positivos ‚: ',mi:2:2);
    writeln;
    writeln ('Digite 1 para continuar ou 2 para finalizar: ');
    readln(n);
    while (n<1) or (n>2) do
    begin
      writeln ('nr invalido');
      write ('Por favor digite 1 para continuar ou 2 para finalizar: ');
      readln(n);
    end;
  until n=2;
  writeln;
  writeln ('Fim...');
  readln;
end.