Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Torlate
25.07.2020 23:50 •
Информатика
Необходимо ввести некоторое целое число и если оно четное уменьшить его в 2 раза.составить программу на паскаль
Показать ответ
Ответ:
петя1023
08.10.2020 10:29
Var
a:longint;
begin
read(a);
if (a mod 2 = 0) then
a:= a div 2;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
УмнаяАлиса7621
29.01.2022 11:42
Төмендегі кестені пайдланып ТАБИҒАТ сөзін циврла...
Михаил684
02.11.2022 19:22
№2 Які властивості компонента Checkbox відносяться до цілого типу? (Може набувати числових значень1) Checkbox1.Width2) Checkbox1.Caption3) Checkbox1.Top4) Checkbox1.Checked...
gbgar
07.04.2021 16:22
Спо информатике. вариант 1. 7. вычислить 2f16 + 538. результат представить в десятичной системе счисления....
4chanus
24.01.2021 03:01
Написать алгоритм игры в кости...
21Oleg12
01.10.2022 04:19
6. Реши уравнения. а: 5 = 0 c: 6 = 2 45 : x=1 7. Реши первые примеры каждого столбика. Используя их отве с÷6=2 3 кл. с=1212÷6=2 2=245÷х=1 а про 1 я хзх=45×1х=4545÷45=1 1=1...
kilu558028
12.02.2020 10:23
Дамуымыздың негізі сөзіне морфологиялық және синтаксистік талдау...
mkalashnik1983
13.09.2020 21:53
Заполнить таблицу по теме Культура Западной Европы в Средние века...
Nastia2k
25.05.2021 23:02
1.Выясните в каком направлении от Саранска находится Санкт-Петербург. Каково расстояние от него до Санкт-Петербурга? Узнайте как добраться до Санкт-Петербурга(поездом или самолётом)...
СтудентЕ11
28.04.2023 14:11
написати твір (2-2,5сторінки) на тему народні балади один із цінних здобутків культури нашого народу...
шаядпчдчр
28.04.2023 14:11
только решите с условиями! В калориметр теплоемкостью с = 20 дж/град, находящийся при температуре т1 = 25 град, налили m2= 150 г (си 0,15 кг) машинного масла при температуре t2=...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a:longint;
begin
read(a);
if (a mod 2 = 0) then
a:= a div 2;
writeln(a);
end.