Question

Program P110;
var a,b:integer;
function
f(x:integer):integer;
begin
f:-(a+b)*x;
a:-a+1;
b:-b+2
end;
begin
a:-1;b:-2
writeln(f(1))
writeln(f(1))
writeln(f(1))
end.
Ce va afisa programul?
- liniuta aceasta reprezinta egal

Answer 1

versiune corectata


Program P110;
var a,b:integer;
function
f(x:integer):integer;
begin
f:=(a+b)*x;
a:=a+1;
b:=b+2;
end;
begin
a:=1;b:=2;
writeln(f(1));
writeln(f(1));
writeln(f(1));
end.


da - este de fapt egal


afiseaza
3
6
9