Дано целое число.Если оно является положительным то прибавить к нему 1,в противном случае вычесть из него два.Вывести полученное число
Дано целое число.Если оно является положительным то прибавить к нему 1,в противном случае вычесть из него два.Вывести полученное число
Гость
Ответ(ы) на вопрос:
Гостьvar num : integer;
begin
readln(num);
if num > 0 then num := num + 1
else num := num - 2;
writeln(num);
end.
Не нашли ответ?
Похожие вопросы