Margas
6 год назад
Написать программу на языке Паскаль на тему: "составить программу для решения систем уравнений"
ОТВЕТЫ
Игорь
Jul 7, 2019
Var x, y:real;
begin
Readln (x);
If x lt; 0 then y:=x*x-3*x
else y:=5*x-x*x;
Writeln (y);
end.
begin
Readln (x);
If x lt; 0 then y:=x*x-3*x
else y:=5*x-x*x;
Writeln (y);
end.
68
Смежные вопросы:
