В торговом центре этажи нумеруются так: ..., - 3, - 2, - 1, 1, 2, 3, ... (то есть нет нулевогоэтажа). Вася спустился на лифте с этажа с номером A на B этажей, а затем поднялся на лифтена C этажей. Определите, на каком этаже он оказался. Программа получает на вход три целых числа: в первой строке записано число A, вовторой - B, в третьей - С. Число A не равно нулю и не превосходит по модулю 100, числа Bи С - положительные и не превосходят 100. Программа должна вывести одно целое число - номер этажа, на котором оказался Вася

Question

Информатика

Наркис

16 августа, 03:23

В торговом центре этажи нумеруются так: ..., - 3, - 2, - 1, 1, 2, 3, ... (то есть нет нулевогоэтажа). Вася спустился на лифте с этажа с номером A на B этажей, а затем поднялся на лифтена C этажей. Определите, на каком этаже он оказался. Программа получает на вход три целых числа: в первой строке записано число A, вовторой - B, в третьей - С. Число A не равно нулю и не превосходит по модулю 100, числа Bи С - положительные и не превосходят 100. Программа должна вывести одно целое число - номер этажа, на котором оказался Вася

+2

Ответы (2)

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

Диомид · Answer 1

Var a, b, c:integer;

Begin

read (a, b, c) ;

if (a * (a-b) > 0) then a: = a - b

else a:=a-b-1;

writeln (a) ;

if (a * (a+c) > 0) then a: = a + c

else a:=a+c+1;

writeln (a) ;

End.

Константиныч · Answer 2

Var a, b, c:integer;

Begin

read (a, b, c) ;

if (a abs (b)) then a: = a - b

else a:=a-b-1;

writeln (a) ;

if (a > 0) or (abs (a) > abs (c)) then a: = a + c

else a:=a+c+1;

writeln (a) ;

End.