terça-feira, 15 de setembro de 2009

Exercício 3

RESPOSTA


program exemplo;
var val, num: integer;
begin
val:=5;

num:=8;
if (5>=1 E 5<=8) then

begin (Ira atender só o 1º comando pois as duas condições sao verdadeiras)
write (5);
end;
else

begin
write (8);
end;
end.


R= 5

exercício 2


program algoritmo;
var val,num:integer;
begin
val:=5
if(valMOD 2=0)then
begin
write(val);
end;
else
begin
write(num);
end;
end.

R= 8

Exercício 1

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