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

Ввести число если оно четное разделить его на 4 если не четное умножить на 5

Ответ:

Era383727

31.07.2020 11:51

Pascal abc

0,0(0 оценок)

Ответ:

зара120

31.07.2020 11:51

Var A : Integer;
Begin
Readln(A);
If Odd(A) then A:=A*5 else A:=A div 4;
Writeln(A);
end.

0,0(0 оценок)

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

jykito28

08.11.2021 18:15

Заполнить массив из 10 элементов случайными числами от -20 до 10. вывести количество отрицательных элементов...

kuanich

19.09.2022 04:59

Друзья-информатики, , ! 10 класс. нужно сегодня! сотку, не жалко! тема такая: правила оформления программных продуктов и условный оператор (if) с двойным условием...

khramenkova

27.09.2020 16:38

Дано двузначное число наприме 50 .найти а)число деятков в нем? б)число едениц? в)сумму его цифр г)произведение их сумм...

Ira21Irina21

27.09.2020 16:38

Ввести строку из текстового файла. продублировать в ней все цифры. остальные символы оставить без изменения. pascalabc.net (продублировать это значит приписать к каждой...

Василий300

04.08.2022 07:38

Сколько существует различных путей из города А в город К?...

ZaraKerimova

14.05.2020 15:55

Укажите соответствие блоков (элементов, характеристик) процессора фоннеймановской ЭВМ и реализуемых процессором функций: 1. Хранение кода текущей команды, выполняемой...

Leonelle

02.03.2023 13:02

Сколько существует различных путей из города А в город М?...

kristina05081999

18.02.2023 15:50

Если в текущей выполняемой процессором команде не указан адрес следующей команды программы, то процессор выбирает эту команду: Выберите один или несколько правильных...

катюшка309

27.05.2023 04:44

Сколько путей из города А в город Л?...

elizovetadobinda

09.04.2022 18:02

Мариям хочет применить к таблице функцию условного форматирования. Для этого она выбрала в «Правилах тбора первых и последних значений» параметр «Ниже среднего».Исходная...

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

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