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

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

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.

quarta-feira, 9 de setembro de 2009


Uma das TVs "sem bordas" anunciadas pela LG no evento

Já na área de notebooks e tablets, a Samsung e a Toshiba também apresentaram algumas novidades. A Samsung apresentou seu notebook "ultrafino" batizado como X3.