Даны три числа. (Ввести их с клавиатуры.). Если их сумма отрицательна , то заменить её абсолютным значением.
Ответы на вопрос
Ответил hardmad
0
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.
Begin
Readln(x, y, z);
A: =x+y+z;
If A>0 then
Write(A)
Else
Write(abs(A));
Readln
End.
Новые вопросы
Геометрия,
2 года назад
Математика,
9 лет назад
История,
9 лет назад
Физика,
9 лет назад
Алгебра,
9 лет назад