quarta-feira, 16 de setembro de 2009

1) Faça um algoritmo que leia 2 valores inteiros, calcule e escreva qual deles é maior, bem como escrevendo se estes valores são pares ou ímpares.

Program gleycy;
var idade,rua: integer;
Begin
readln (idade,rua)
if (idade > rua) then
writeln ( idade );
if (rua > idade) then
write ln( rua );
If (idade mod 2=0) then
writeln ('par');
else
write ('impar');

if (rua mod 2=0) then
writeln ('par');
else
write ('impar');

end.

Nenhum comentário:

Postar um comentário