Предмет: Информатика, автор: morofonuk228

Срочно! Нужно составить программу на языке ПаскальABC

Приложения:

Ответы

Автор ответа: notch772
1

var x,y:integer;

begin

   readln(x);

   if x > 0 then

       y := 2*x

   else

       y := x - 1;

   writeln(y)

end.


morofonuk228: Спасибо
Похожие вопросы
Предмет: Английский язык, автор: Барецкая