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