Este programa faz várias coisas. O utilizador insere números inteiros positivos e o programa conta-os, desde que estes pertençam ao intervalo ]0,20]. Para terminar a contagem deve-se inserir o número 0. No final, o programa vai dizer quantos números é que foram contados, quantos deles são pares e ímpares, as respetivas percentagens e ainda a média de todos os números.
Código:
Program contador_ex5 ;
var n, soma, total, par, impar:integer;
Begin
soma:=0; //soma dos numeros
total:=0; //contagem total
par:=0; //contagem pares
impar:=0; //contagem impares
writeln('Contador de números inteiros positivos ]0,20].');
writeln('Para acabar a introdução de números, prima 0 e Enter.');
repeat
write('Introduza aqui um número: ');
readln(n);
if (n>0) and (n<=20) then
begin
soma:=soma+n;
total:=total+1;
if n mod 2=0 then par:=par+1
else impar:=impar+1;
end;
if (n<0) or (n>20) then writeln ('Número inválido.');
if n=0 then
begin
writeln('');
writeln('CONTAGEM TERMINADA.');
writeln('');
end;
until n=0;
writeln('Há ',total,' números.');
writeln(par,' deles são pares, sendo ',(par/total*100):5:2,' % do total.');
writeln('Os outros ',impar,' são ímpares e correspondem a ',(impar/total*100):5:2,' %.');
writeln('A média de todos os números é ',(soma/total):5:2,'.');
End.