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
ajutor va rogggg!!!!!!!!!!!!!!!!!!!!!!!!!!!!
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.