vulpe
23.06.2020 16:17

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
lourln
15.05.2020 21:59

var x,y:integer;

begin

   readln(x);

   if x > 0 then

       y := 2*x

   else

       y := x - 1;

   writeln(y)

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота