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

Дано целое число. Если оно является положительным то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число. Решить задачку нужно в рандоме! :(
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы