Предмет: Информатика,
автор: yuliya91
Дано целое число А. Если значение А > 0, то необходимо увеличить его на единицу, иначе уменьшить на 1. Написать программу для решения этой задачи.
Ответы
Автор ответа:
9
var a:integer;
begin
readln(a);
if a>0 then a:=a+1 else a:=a-1;
writeln(a);
end.
begin
readln(a);
if a>0 then a:=a+1 else a:=a-1;
writeln(a);
end.
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: кай27
Предмет: Английский язык,
автор: Sofia628
Предмет: Биология,
автор: Аноним