Questões de Vestibular UFBA 2013 para Vestibular de Computação
Foram encontradas 70 questões
program Exemplo2; var a, b, x: real; begin writeln(‘Digite dois números’); readln(a, b); x := a; if (b > a) then x := b; writeln(x); end.
Para responder a essa questão, considere a função em Pascal Exemplo3.
function Exemplo3 (n, x: integer): integer;
var y: integer;
begin
y := 1;
while ( x > 0 ) do
begin
y := y * n;
x := x – 1;
end;
Exemplo3 := y;
end;
Para responder a essa questão, considere a função em Pascal Exemplo3.
function Exemplo3 (n, x: integer): integer;
var y: integer;
begin
y := 1;
while ( x > 0 ) do
begin
y := y * n;
x := x – 1;
end;
Exemplo3 := y;
end;