Войти Регистрация Спроси ai-bota

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

Ответ:

lolipop310

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 оценок)

Популярные вопросы: Информатика

Ринат2006

26.11.2021 12:19

Сколько единиц в двоичной записи числа 37110? 1) 7 2) 6 3) 3 4...

Умник00Семь

11.12.2022 16:27

Решите и отправите в документе...

Babl11

27.05.2020 20:56

Написать программу: подсчитать сумму двузначных четных чисел в диапазоне заданном пользователем. используя оператор !...

dmtrysuraev

14.09.2022 21:11

Вмагазине мячи четырёх цветов (синие, зелёные, красные и жёлтые) и трёх размеров (большие, средние и маленькие). на диаграмме i отражено количество мячей разного размера,...

рлжжх

09.01.2021 12:49

Дан алгоритм в виде фрагмента блок-схемы. запишите его на алгоритмическом языке....

melisa2007

13.11.2022 23:24

Напишите программу, которая сортирует массив по возрастанию методом камня : аналогично методу пузырька , но в обратном порядке: самый тяжелый элемент из оставшихся...

малыш115

05.08.2021 19:42

2. запишите последовательность букв, соответствующую алго- ритму безопасного полета (правильных алгоритмов может быть несколько): а) спинку сиденья в вертикальное...

Qwertysiq

16.06.2020 11:43

Определить красноволновую границу фотоэффекта для цезия λкр, если работа выхода электронов составила 3.15 эВ....

варя373

20.02.2022 03:19

Маховое колесо начинает вращаться с постоянным угловым ускорением 0.5 рад/с2. Найти кинетическую энергию колеса через 20 с после начала движения, если момент инерции...

Libert02

20.02.2022 03:19

Составить 5 вопросов к каждому предложению. Вопросительно слово в скобках используйте для составления специального вопрос a. They went to Sochi last summer (where)...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку