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