Предмет: Информатика,
автор: ilya20090303
Дано целое число a. Если оно является неположительным, то прибавить к не му 1,иначе увеличить в 2 раза.
В Pascal
Ответы
Автор ответа:
1
// PascalABC.NET
begin
var a := ReadInteger;
if a <= 0 then
a += 1
else
a *= 2;
Print(a)
end.
ilya20090303:
Спасибо
Похожие вопросы
Предмет: Русский язык,
автор: ilya1341
Предмет: Русский язык,
автор: cebaaaa
Предмет: Русский язык,
автор: Nikita5102003
Предмет: Физика,
автор: NothingPeople