Напишите программу в Паскале по условию

Даны действительные числа x, y. Если х, у отрицательны, то каждое значение заменить его модулем; если отрицательное только одно из них, то оба значения увеличить на 27; если оба значения не отрицательны, то оба значения уменьшить на 20.

Question

Информатика

Натоша

5 декабря, 12:42

Напишите программу в Паскале по условию

Даны действительные числа x, y. Если х, у отрицательны, то каждое значение заменить его модулем; если отрицательное только одно из них, то оба значения увеличить на 27; если оба значения не отрицательны, то оба значения уменьшить на 20.

+2

Ответы (1)

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

Гонеста · Answer 1

Var x, y:real;

begin

read (x, y) ;

if (x<0) and (y<0) then writeln (abs (x),' ', abs (y)) else

if ((x=0)) or ((y=0)) then writeln (x+27,' ', y+27) else

if (x>=0) and (y>=0) then writeln (x-20,' ', y-20) ;

end.