Дано целое число.Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его . Вывести полученное число.
Var i:integer;beginwriteln(введите число);readln(i);if (i>=0) theni:=i+1elsei:=i;writeln (i);end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
