Предмет: Информатика,
автор: Аноним
Дано целое число.Если оно является положительным то прибавить к нему 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
Да, давай
Интересные вопросы
Предмет: Русский язык,
автор: maryzhdanova10
Предмет: Литература,
автор: somin14
Предмет: Математика,
автор: adiklegendanikita
Предмет: Математика,
автор: zlatik213
Предмет: Математика,
автор: аннам