Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число. Задачку нужно решить в рандоме!! ! :(
Answers & Comments
ubunt
Var x,y: integer; begin x:= -10+random(20); if x>0 then y:=x+1 else y:=x; writeln('Число ',x,' результат ',y); end.
Answers & Comments
begin x:= -10+random(20);
if x>0 then y:=x+1 else y:=x;
writeln('Число ',x,' результат ',y);
end.