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
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