НУЖНА ПОМОЩЬ!! Написать на любом языке желательно паскаль или в QBasic!!

1

Ответы и объяснения

2013-10-24T14:46:18+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Var a,b,c:integer;
Begin
  read(a,b,c);
  if (a < 0) or (abs(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.