1. Информатика
  2. Необходимо ввести некоторое

Необходимо ввести некоторое целое число и если оно четное уменьшить его в 2 раза.составить программу на паскаль

arinaari11 arinaari11    2   22.09.2019 20:30    3

Ответы
WiTaMiN111 WiTaMiN111  08.10.2020 10:29
Var
a:longint;
begin
read(a);
if (a mod 2 = 0) then
a:= a div 2;
writeln(a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
AндрeйTh AндрeйTh  19.01.2021 15:58
Што нужна зделоть есле так памагите​...
Leha9202 Leha9202  19.01.2021 15:59
Өз аты-жөніңізбен жасыңыз шығатындай код құрыңыз!! Менын атым: Рысдаулет Мухамедали керек...
Даша182005 Даша182005  26.05.2021 13:01
Дан массив из 10 элементов. Найти сумму, средние значение pascal...
qwerty882 qwerty882  26.05.2021 13:03
Складання програм на обчислення логічних виразів з використанням простих та складних умов. задача: Перевірити якій чверті належить точка з заданними координатами. Врахувати осі...
Phoenix511 Phoenix511  26.05.2021 13:08
код програмування в якому : побудується квадрат червоного кольору в середині нього побудується коло білого кольору і проведеться лінія зеленого кольору справа від квадрату​...
ЖекЖек ЖекЖек  01.12.2020 09:50
с задачами по информатике 8 класс ​...
annattarsova0 annattarsova0  01.12.2020 09:50
Определите путь к файлу в каталоге приведённый ниже и заполните таблицу...
maria22890 maria22890  01.12.2020 09:50
1. Расположите величины в порядке убывания 500 битов, 500 байтов, 4 бита, 50 байтов, 0,3 Кбайта 2. Заполните пропуски а) 18 432 бита = ……. байтов = ………Кбайтов б) …….Гбайтов = 1433,6...
evasyperandreev evasyperandreev  11.06.2019 12:10
Алфавит некоторого языка состоит из 64 символов, за сколько секунд можно передать текст из 200 символов, если скорость передачи 50 байт/сек?...
scritinomerok scritinomerok  14.11.2019 06:53
Вариант 31. разработайте базу данных «сессия», состоящую из четырех таблицсо следующей структурой: студенты – шифр студента (ключевое поле), фамилия, имя, отчество,курс, група.экзамены...

Популярные вопросы