Ответы на вопрос:
// PascalABC.NET
begin
var a := ReadInteger;
if a <= 0 then
a += 1
else
a *= 2;
Print(a)
end.
Популярно: Информатика
-
sherbakovaaaa06.09.2022 02:46
-
лиза471018.12.2022 10:45
-
prostochel406.02.2022 06:01
-
Даниил22322312.03.2023 20:21
-
davleeva08.07.2021 06:35
-
Лисёнка200502.12.2022 09:51
-
chronicempty03.07.2020 05:09
-
динозаврррррр14.04.2023 18:14
-
какатус30.05.2023 13:59
-
kirillfox99ozbdp825.09.2021 22:41