quarta-feira, 2 de dezembro de 2009
segunda-feira, 19 de outubro de 2009
quarta-feira, 16 de setembro de 2009
exercicio 3
program kleiton;
var num1,num2:interger;
impar,par:string;
BeginReadln(num1);
Readln(num2);
If (num1>num2) ThenWriteln (num1);
ElseIf(num2>num1) ThenWriteln (num2);
If (num1 MOD 2) = 0 ThenWriteln ('Par');
ElseWriteln ('Impar');
End.
O resultado que será mostrado na tela é 5
var num1,num2:interger;
impar,par:string;
BeginReadln(num1);
Readln(num2);
If (num1>num2) ThenWriteln (num1);
ElseIf(num2>num1) ThenWriteln (num2);
If (num1 MOD 2) = 0 ThenWriteln ('Par');
ElseWriteln ('Impar');
End.
O resultado que será mostrado na tela é 5
exercicio 2
program exemplo;
var val, num: integer;
begin
___ val:=5;
___ num:=8;
____if (val MOD 2= 0) then
_____begin
_______write (val);
_____end;
____else
_____begin
_______write (num);
_____end;
end.
O resultado que será apresentado pelo algoritmo é 8
var val, num: integer;
begin
___ val:=5;
___ num:=8;
____if (val MOD 2= 0) then
_____begin
_______write (val);
_____end;
____else
_____begin
_______write (num);
_____end;
end.
O resultado que será apresentado pelo algoritmo é 8
Exercicio 1
program_kleiton;
var val1,val2:integer;
beginreadln(val1);
readln(val2);
if (val1>val2) thenwriteln (val1);
elseif(val2>val1) thenwriteln (val2);i
f (val1 mod 2) = 0 thenwriteln ('numero par');
elsewriteln ('numero impar');
if val2 mod 2 = 0 thenwriteln ('numero par');
elsewriteln ('numero impar');
end.
var val1,val2:integer;
beginreadln(val1);
readln(val2);
if (val1>val2) thenwriteln (val1);
elseif(val2>val1) thenwriteln (val2);i
f (val1 mod 2) = 0 thenwriteln ('numero par');
elsewriteln ('numero impar');
if val2 mod 2 = 0 thenwriteln ('numero par');
elsewriteln ('numero impar');
end.
Assinar:
Postagens (Atom)