Um Algoritmo em Pascal, que receba a idade de três pessoas e mostre a média da idade entre elas.
Soluções para a tarefa
Respondido por
2
var idade: integer;
cont: integer;
soma,media, maior, menor:real;
Begin { inicio do programa}
maior:=0;
menor:=999;
// LEITURA DAS IDADES
for cont:= 1 to 3 do
begin
repeat
writeln(' IINFORME ',cont,' a. IDADE:');
readln(idade);
if idade<0 then
begin
writeln(' IDADE INEXISTENTE. POR FAVOR COLOQUE UMA COERENTE:');
end;
until idade>0;
// soma das idades
soma:=soma+idade;
if maior<=idade then
begin // Maior
maior:= idade;
end;
if (menor>idade) then
begin // Menor
menor:=idade;
end;
end;
media:=soma/3; // MEDIA
begin
writeln(' maior:',maior);
writeln(' menor ',menor);
writeln(' soma: ',soma);
writeln(' media: ',media);
end;
End.
Perguntas interessantes
Matemática,
8 meses atrás
Português,
8 meses atrás
História,
8 meses atrás
Artes,
1 ano atrás
História,
1 ano atrás
Matemática,
1 ano atrás
Inglês,
1 ano atrás
Português,
1 ano atrás