Дано целое число. Если оно является положительным то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число. Решить задачку нужно в рандоме! :(

1

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

2014-02-17T07:53:19+00:00

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

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Var x,y: integer;
  begin  x:= -10+random(20);
  if x>0 then y:=x+1
 else if x<0 then y:=x-2 else y:=10;
  writeln('Число ',x,' результат ',y);
end.