Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
s1453849
13.12.2022 11:28 •
Информатика
'ввести два числа (а, b), если разность чисел b и а отрицательна и делится на 4, то удвоить разность.' , ..
Ответ:
Шпсхрчз
03.10.2020 12:50
Var
a, b: integer;
begin
readln(a, b);
a := b - a;
if (a < 0) and (a mod 4 = 0) then
writeln(4 * a)
else writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ГораСлез
02.02.2021 22:09
Придумайте позволяющий определить , сколько символов в минуту вы пишете . проведите такое измерение . вычислите в битах количесвтво информации , которое вы можете записать...
DaNa1517
02.02.2021 22:09
35 ! последовательность оканчивается 0, определить сумму четных чисел, кол-во нечетных. если есть хотя бы одно отрицательное-на экран вывести слово отрицательное ....
fegancev
02.02.2021 22:09
Дана длина ребра куба(5 см), составьте блок схему алгоритма нахождения площади грани и площади полной поверхности...
NeZoX1234
25.12.2022 03:53
ОБЪЯСНИТЕ КАК ЭТО РЕШАТЬ Даноарифметическое выражение 6^23+6^х-6^3.Найдите такой х (3 х 23), чтобы количество нулей, в записи числа в системе счисления с основанием 6, равнялось...
mketol4663
03.07.2021 12:59
QT C++ Почему код так отличается? Почему код на C++ , отличается от кода на qt? Чтобы вывести Hello world! в c++ нужно : cout Hello world! endl; А в Qt (будем считать, что...
belovworms2003p0af24
25.09.2020 17:41
B10. Ниже записана программа (для вашего удобства программа написана на разных языках программирования). Получив на вход число х, эта программа печатает число A. Укажите,...
ivanchistyakov
04.06.2022 06:37
Определите какое из указанных имен файлов удовлетворяет маске ? cr*m.d? c a. crim.doc. б. acrims.doc. в. ocrm.dtc. г. ocrm.dc....
kris406
04.06.2022 06:37
Уисполнителя вычислитель две команды,которым присвоены номера: 1) подели на 2; 2) вычти 1. первая из них уменьшает число на экране в 2 раза,вторая вычитает из него 1. исполнитель...
XiaomiK
04.06.2022 06:37
Запросить с клавиатуры целое 8-значное число начинающее двойкой и напечатать его третью цифру. если вводится не то число , то сообщить об этом и повторить ввод...
Даник21
04.06.2022 06:37
1. напишите условные обозначения составления блок-схем 2.составьте блок-схему и программу: 1) вычислить длины сторон прямоугольного треугольника, у которого длина одного катета...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
a, b: integer;
begin
readln(a, b);
a := b - a;
if (a < 0) and (a mod 4 = 0) then
writeln(4 * a)
else writeln(a);
end.