Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
pepeon11
09.06.2022 15:40 •
Информатика
'ввести два числа (а, b), если разность чисел b и а отрицательна и делится на 4, то удвоить разность.' , ..
Ответ:
yuliaprok61yulia1206
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 оценок)
Популярные вопросы: Информатика
lirazelio
28.10.2021 00:09
написать программу в pascalABC. Div и Mod...
20лиза07
26.07.2022 10:48
Напишите программу, которая в последовательности целых чисел определяешь сумму чисел, а также количество чисел, кратных 5 или 9. программа получает на вход целые числа,...
muraitovaayana2
01.11.2020 23:14
очень сильно надо СОР по информатике...
Анют2006
05.06.2020 06:30
Инайдите значение выражения б) 3/8у + у - 1/4 при у =2 целых 2/3 ; 4/9; в) 13/15m - 3/4m + 1/12m при m =2 целых 1/2 ; 6 целых 1/4 ;...
Egorkalyadov03
05.06.2020 06:30
Какой из факторов имеет 10% влияние на формирование здоровья человека и общества образ жизни наследственнсть внешняя среда организация медицинской...
nail18121
05.06.2020 06:30
Приммеры взаимодействия разных видов искусства. музыка....
fdffxdf
05.06.2020 06:30
По соотнесите цифры с буквами 1. why is she crying? 2. is it snowing now? 3. where are they staying? 4. what is he watching? 5. what are you doing 6. is he playing...
syltan502
05.06.2020 06:30
Жкесни,ймака. установите правильный порядок !...
ДианаИванова11
05.06.2020 06:30
Втреугольнике abc,mn-средняя линия.периметр треугольника mbn равен 10.чему равен периметр треугольника abc?...
Mehribonim
05.06.2020 06:30
Музыка! ) (тут 20 ) нужно ответить на вопросы: 1. дата жизни и.с баха 2.родина(город, страна) 3.любимый инструмент(род) 4.как называется музыка(стиль) 5.кто такой...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.