Написать программу на языке Паскаль на тему: "составить программу для решения систем уравнений"
Вы глубоко неправы: ;-) задание на листке написано взрослым почерком, из чего я делаю вывод, что математику прогуливал учитель информатики. Бедные дети!
Так я правильно понял задание?
Почерк ученика (владельца тетради) - синяя ручка выше. Видна разница. Так что математику учитель таки прогуливал. ;-)
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.
Крив