⇢ СМ
Сергей Маштаков
Помогите решить уравнение в Pascal
|x| + 2*A = 0
Формат входных данных:
Во входном файле задано целое число A (-2*109 ≤ A ≤ 2*109).
Формат выходных данных надо найти
Помогите очень надо!
*М
*****ольга Москва******
if A > 0 then Writeln('Уравнение корней не имеет') else
if A = 0 Writeln('x=0') else Writeln('x1=', 2*A, ('x2=', -2*A);
если необходимо полное решение с комментариями пиши на почту
Похожие вопросы