Предмет: Информатика,
автор: dangerous27
Дано целое число.Если оно является положительным,то прибавить к нему 1,в противоположном случае вычесть из него 2.Вывести полученное число.
Ответы
Автор ответа:
0
var a: integer;
begin
read(a);
if a>=0 then a:= a+1
else a:= a-2;
write(a);
end.
begin
read(a);
if a>=0 then a:= a+1
else a:= a-2;
write(a);
end.
Автор ответа:
0
программу проверила, она пошла
Автор ответа:
0
var a :longint;
begin
readln(a);
If a>0 then a:=a+1 else a:=a-2;
writeln(a);
end.
begin
readln(a);
If a>0 then a:=a+1 else a:=a-2;
writeln(a);
end.
Интересные вопросы
Предмет: Математика,
автор: sasha247971
Предмет: Английский язык,
автор: artemfisk69
Предмет: Алгебра,
автор: kompot3151
Предмет: Литература,
автор: arean
Предмет: История,
автор: ksk03