, по типу такой программы Var x:integer; begin X:=-3;

IF X<0 THEN X:=x+2

ELSE X:=x*2;

X:=1;

writeln(x); End.

whitehawk1508    1   16.02.2022 14:19    2