Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Mariyaftolov
26.04.2023 00:29 •
Информатика
Необходимо ввести некоторое целое число и если оно четное уменьшить его в 2 раза.составить программу на паскаль
Ответ:
oilga03
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 оценок)
Популярные вопросы: Информатика
прииииииип
07.09.2022 01:31
Имеется массив А с индексами элементов от 1 до 15. Элементам массива присвоены целочисленные положительные значения, при этом строго трёхзначные числа. Какое минимальное...
Plushtrap
29.04.2020 12:25
В виде чего может быть представлен алгоритм: а) схемы с дугами (стрелками); б) схемы понятий; в) неориентированного графа....
5Артём
28.05.2023 15:19
Сообщение занимает 3 страницы по 25 строк. в каждой строке записано по 60 символов. сколько символов в использованном алфавите, если все сообщение содержит 2250 байт?...
casio007001
19.01.2023 17:19
Лектор читает лекцию о вреде курения. он излагает вам: 1 сведения 2информация 3знания 4сообшения 5сведения и знания...
oksankavdovina
07.10.2020 16:54
Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (8, 8); (9, 6); (4, 7); (6, 6); (–9, –2); (–5,...
tanya240102
26.02.2020 09:37
№1 вывести на экран квадраты чисел от 1 до n. №2 вывести на экран таблицу умножения от 1 до 10 числа n. №3 вычислить значение факториала n! №4 в диапазоне от 1 до n...
snow15
05.02.2022 09:29
с решением в PascalABC. Тема ЛВП...
artemka222288
24.03.2023 11:06
На фабрике раскладывают конфеты в коробки по 2 кг. за минуту первый станок пакует 2,а второй-3 коробки. первый станок начал работать на 1 минуту позже,чем второй .всего...
agarkovr83
24.03.2023 11:06
Сравните корни уравнений89,89÷x+6,16÷0,56=100; 0,824÷( x-0,61)=2,06....
александрадейкун
24.03.2023 11:06
Подчеркните буквы безударных гласных; доктор,фартук,одна; решить ребус; с=д...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
a:longint;
begin
read(a);
if (a mod 2 = 0) then
a:= a div 2;
writeln(a);
end.