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