Даны три числа. (Ввести их с клавиатуры.). Если их сумма отрицательна, то заменить её абсолютным значением.

Question

Коляня

22 августа, 17:19

+1

Ответы (1)

Знаете ответ на вопрос?

Филя · Answer 1

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.