Progan exer 2;
var v1,v2 par:integer;
begin
read(v1,v2);
if(v1,v2);write(v1);
else
if(v2>v1)then;
write(v2);
if(v1 mod 2=0)then;
write("0 valor1é par");
else
write(impar);
end.
terça-feira, 15 de setembro de 2009
segunda-feira, 24 de agosto de 2009
segunda-feira, 17 de agosto de 2009
Assinar:
Postagens (Atom)