Program Pzim ;
var xpessoas,limite,qtdm,pesao,baixa:integer;
sexo:string;
altura,peso:real;
Begin
qtdm:=0;
limite:=0;
pesao:=0;
write('Quantas pessoas passaram pelo posto de saúde hoje...: ');
read(xpessoas);
while (limite < xpessoas) do
Begin
write('Digite "m" para sexo masculino e "f" para feminino..: ');
read(sexo);
if (sexo='m') then
qtdm:=qtdm+1;
write('Digite sua altura...: ');
read(altura);
write('Digite seu peso.....: ');
read(peso);
if((sexo='m')and(peso>50))Then
pesao:=pesao+1;
if((sexo='f')and(baixa<1.80))Then
baixa:=baixa+1;
limite:=limite+1;
writeln ('================================================');
end;
writeln('Passaram ',xpessoas,' pessoas pelo posto hoje.');
writeln('Passaram ',qtdm,' pessoas do sexo masculino pelo posto.');
writeln('Passaram ',pesao,' pessoas acima de 50 Kls do sexo masculino');
writeln('Passaram ',baixa,' pessoas do sexo feminino menor que 1.80 m');
End.
Nenhum comentário:
Postar um comentário