Atividade 3

3.1

Program dofer;

Var Val1,Val2:Integer;

Begin
__Readln(Val1);
__Readln(Val2);
__If (Val1>Val2) Then
__Writeln (Val1);
__Else
__If(Val2>Val1) Then
__Writeln (val2);
__If (Val1 MOD 2 = 0) Then
__Writeln ('Numero Par');
__Else
__Writeln ('Numero Impar');
__If(Val2 MOD 2 = 0) Then
__Writeln ('Numero Par');
__Else
__Writeln ('Numero Impar');
End.

3.2

program exemplo;
var val, num: integer;
begin
___ val:=5;
___ num:=8;
____if (val MOD 2= 0) then (5 MOD 2 = 1 entao o resultado sera 1)
_____begin
_______write (val);
_____end;
____else
_____begin
_______write (num);
_____end;
end.

O resultadoserá 8

3.3

program exemplo;
var val, num: integer;
begin
___ val:=5;
___ num:=8;
____if (val >=1 AND val<=8) then _____begin _______write (val); _____end; ____else _____begin _______write (num); _____end; end. O resultado será 5