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

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

Показать ответ

Ответ:

PAMAGITE12

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

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

lavika1

02.04.2021 07:11

Камера делает фотоснимки размером 3200´1800 пикселей. на хранение одного кадра отводится 3 мбайт. найдите максимально возможное количество цветов в палитре изображения....

teroserYtube

28.07.2020 15:52

План побудови відеокліпів 8 клас...

одногоВоло

02.01.2021 15:17

Какие виды графической информации существуют?...

dzhele19

05.10.2020 16:09

Задача: найти значение максимального элемента в одномерном массиве, который заполняется случайными числами....

PadhD

22.01.2022 19:43

Создайте массив из 5 элементов с генератора случайных чисел с элементами от 0 до 100 и выведите его на экран. Отсортируйте массив по убыванию....

Арина7405

05.05.2020 05:11

У каво нибуть есть фаил с ответом на данную работу скиньте...

LoveSmile78900987

10.08.2021 10:06

В алфавите папуасов содержится 3 буквы из папуасов составили слова из 5 букв определите максимальное возможное количество составленных слов решить...

andreydikenson1

29.01.2023 23:21

3. Дан словарь, в котором ключи – названия месяца, а значения – объем осадков за месяц. Необходимо отсортировать месяцы по возрастанию количества осадков. Язык Питон...

Никиланджело

12.03.2022 23:43

БооОтТ зЗЗННААННнииИЯЯ тТелЛЕЕЕггРаамМ - @united brai nly (бееЗЗ РррбБЛоВвВ)...

xelasaa48

15.12.2021 00:01

БББОТтт ззНАанниИЯЯ ТтТлЕЕгГРрмМ - @united brai nly (бБЕеЗ ППпРрРОобБееЛоОВв)...

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

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