Написать программу на языке Паскаль на тему: "составить программу для решения систем уравнений"
Приложения:
Ответы
Ответ дал:
0
Var x, y:real;
begin
Readln (x);
If x < 0 then y:=x*x-3*x
else y:=5*x-x*x;
Writeln (y);
end.
begin
Readln (x);
If x < 0 then y:=x*x-3*x
else y:=5*x-x*x;
Writeln (y);
end.
Ответ дал:
0
Крив
Похожие вопросы
2 года назад
6 лет назад
9 лет назад
9 лет назад