segunda-feira, 14 de setembro de 2009

PROGRAM ALGORÍTMO;
VAR V1,V2 PAR:INTEGER;
BEGIN
READ(V1,V2);
IF(V1,V2);WRITE(V1);
ELSE
IF(V2>V1)THEN;
WRITE(V2);
IF(V1MOD2=0)THEN;
WRITE("OVALOR1ÉPAR");
ELSE
WRITE(IMPAR);
END.

Nenhum comentário:

Postar um comentário