Question

Fie functia:
function secret(x:integer):integer
var i,j:integer;
begin
i:=2×x;
if i>10 then j:=X mod 2 else j:=X div 3;
secret:=j-2×x;
end.
Ce va afisa acest fragment de program pentru x = 10 la adresarea Writeln(secret (x))?

Answer 1

Indeplinesti fiecare comanda in cap;
prima: i:=2*x;
daca presupunem ca x=10, atunci i=20;
a doua: daca i > 10 , ceea ce este adevarat, atunci j:=x mod 2.
deoarece x este un numar par, atunci x mod 2 =0, atunci j=0;
a treia: secret:=j-2*x.
am aflam j si stim x, atunci secret=0-2*10=-20.
Raspuns: Va afisa -20.