Даны три числа. (Ввести их с клавиатуры.). Если их сумма отрицательна , то заменить её абсолютным значением.
Даны три числа. (Ввести их с клавиатуры.). Если их сумма отрицательна , то заменить её абсолютным значением.
Гость
Ответ(ы) на вопрос:
ГостьVar x,y,z,A: real;
Begin
Readln(x, y, z);
A: =x+y+z;
If A>0 then
Write(A)
Else
Write(abs(A));
Readln
End.
Не нашли ответ?
Похожие вопросы