Ответ:
Var
X, i: longint;
Begin
Readln(l);
For x := - 100 to 100 do
If l*x-5*x+2*l=2 then writeln(x);
End;
End.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
Var
X, i: longint;
Begin
Readln(l);
For x := - 100 to 100 do
Begin
If l*x-5*x+2*l=2 then writeln(x);
End;
End.