Algoritmo
Por: Cosme Alves • 1/11/2015 • Pesquisas Acadêmicas • 827 Palavras (4 Páginas) • 321 Visualizações
Program Ex1;
Var
QI,QE,Sidade,idade:integer;
Begin
Writeln('Digite a idade: '); readln(idade);
while idade <> 0 do
Begin
if (idade >= 65) then
QI := QI + 1;
if (idade >= 16) then
QE := QE + 1;
if (idade >= 18) then
SIdade := SIdade + idade;
Writeln('Digite a idade: '); readln(idade);
End;
Writeln('A quantidade de idosos é:', QI);
Writeln('A quantidade de eleitores é :', QE);
Writeln('A soma das idades das pessoas aptas a dirigir é:', Sidade);
End.
Program Pzim ;
Var
sexo: char;
CC, CO: string;
maioridade, idade, QIF, QICOR:integer;
Begin
Writeln('Digite o Sexo M ou F:'); Readln(sexo);
Writeln('Digite a cor do cabelo:'); Readln(CC);
Writeln('Digite a cor dos olhos:'); Readln(CO);
Writeln('Digite a idade:'); Readln(idade);
While (idade <> -1) do
Begin
If (idade > Maioridade) then
maioridade := idade;
if (sexo = 'F') and (idade >= 18) and (idade <= 35) then
QIF := QIF + 1;
if (CO = 'verde') and (CC = 'louro') then
QICOR := QICOR + 1;
Writeln('Digite o Sexo M ou F:'); Readln(sexo);
Writeln('Digite a cor do cabelo:'); Readln(CC);
Writeln('Digite a cor dos olhos:'); Readln(CO);
Writeln('Digite a idade:'); Readln(idade);
End;
Writeln('A Maior idade é:', Maioridade);
Writeln('a quantidade de indivíduos do sexo feminino cuja idade está entre 18 e 35 anos é:', QIF);
Writeln('a quantidade de indivíduos que tenham olhos verdes e cabelos louros é :', QICOR);
End.
...