terça-feira, 15 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 tamiris1

var v1, v2, par: integer;
begin
read("v1, v2")
if
("v1>v2") then
write ("v1")
else
write ("v2")
Begin
if
("v1 mod 2=0") then
write ("par")
else
write ("impar")
end;
end.

Nenhum comentário:

Postar um comentário