PROGRAMA PRINCIPAL

AD1 FUNDAMENTOS DE PROGRAMAÇÃO

Questão 2)

program Numeros (input{teclado},output{video});

function verificacao : Integer;

var

num: Integer;

begin

write(output, 'Digite um numero inteiro positivo. Quando quiser terminar, digite 0:');

readln(input, num);

verificacao := num;

end;

var

numero, soma, maior, menor: Integer;

quantos:Integer;

begin

quantos:= 0;

soma:= 0;

numero := verificacao;

maior := numero;

menor := numero;

while numero<>0 do

begin

quantos:= quantos+1;

soma:= soma+numero;

if numero > maior then

maior := numero

else

if numero < menor then

menor := numero;

numero := verificacao;

end;

if quantos=0 then

writeln(output, 'Lidos: ', quantos)

else

begin

writeln(output, 'Lidos: ', quantos);

writeln(output, 'Media: ', soma/quantos);

writeln(output, 'Maior: ', maior);

writeln(output, 'Menor: ', menor);

if maiorimpar >= menorimpar then

end;

readln(input);

end.

Questão 4)

program Soma_primos (input{teclado},output{video});

var

num: Integer;

begin

While num