tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
ввести два числа (а,
'ввести два числа (а, b), если разность чисел b и а отрицательна и делится на 4, то удвоить разность.' , ..
Angel574367
1 25.07.2019 18:00
0
Ответы
Маргоht
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
kotlaralina
26.08.2019 09:40
Покупатели магазина пользуются 10% скидками, если покупка состоит более, чем из пяти наименований товаров или стоимость покупки превышает k рублей. составить электронную таблицу,...
jasmin47
15.11.2019 19:47
Водной из кодировок unicode каждый символ кодируется 16 битами..кирилл написал текст (в нем нет лишних пробелов) лиса, кабан, гепард, медведь, росомаха, толсторог -дикие животные...
oleca3
15.11.2019 19:43
Напишите программу, которая получает два целых числа (a и b) и находит их произведение, не используя операцию умножения. учтите, что числа могут быть отрицательными. питон...
mail000alomer
01.09.2019 04:30
На языке pascal abc реализовать программу, выводящую первых k нечётных чисел 1,3,5,( k задаётся с клавиатуры. нужно до завтра самое главное: сделать эту программу с ! write! , и сделать...
Jkbts
22.06.2019 13:50
Напишите программу в которой значение вычисляется по формуле a+b, если а- нечетное число и а*b, если а - четное число ( if a mod не равно 0)...
Mari333111
22.06.2019 13:50
Ученик работал с каталогом с : \лето\растения\ежевика. сначала он поднялся на один уровень вверх, затем спустился на один уровень вниз в каталог полив, потом ещё раз поднялся на один...
dinamis05
22.06.2019 13:50
Напишите программу которая по введенному числу из промежутка от 0 до 24 определяет время суток. через if и case....
AkimMen
24.08.2019 17:40
Программа считающая произведение натуральных чисел знания...
mdasa7375
26.03.2021 10:48
Виписати 5 досягнень у галузях культури Києвської-Русі.(Освіта, література, архітектура, мистецтво , в течении 10 минут, ...
helpmeplsaaa
26.03.2021 10:48
решить 1 и 2 вариант до 3 номера...
Популярные вопросы
, решить задачи по экономике....
3
Реши примеры и скажите как решать такие примеры что б я сам мог их решать ...
2
7. Столбиком 17 см - 4147 ч: 3102 кг : 217 кг. 464 мин : 2422 м: 2рт тт. столбик...
1
Объясните почему политические репрессии СССР в 30-е года XX.в приняли массовый...
2
Жалпылау есымдыгы катыскан сойлемды табыныз...
2
Почему мне нарвится играть на гитаре ?...
3
B) 6.1.7.1 6.5.5.1 Use your notes from Ex. 6a to tell the class why Er-Tostik is...
3
1. Мәтін мазмұнына лайықты даналық ой [1]...
1
5-7 предложений с производными предлоги (из художественных произведений)...
1
Жастар мадениеты туралы эссе келыспеу келысу эссе тезрек...
1
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.