Вопрос по информатике:
Даны два целых числа. Если они оба четны, то большее из них поделить на 2; если оба нечетны, то каждое умножить на 2; в противном случае нечетное из чисел увеличить на 1. Блок-схему надо и программу
Пожаловаться
- 18.07.2018 11:04
- Информатика
- remove_red_eye 909
- thumb_up 41
Ответы и объяснения 1
Var a,b,c:longint;begin readln(a,b); if b>a then begin c:=b; b:=a; a:=c; end; if (a mod 2=0) and (b mod 2=0) then write(a, : 2 = ,a/2) else if (a mod 2=1) and (b mod 2=1) then write(a, * 2 = ,a*2,; ,b, * 2 = ,b*2) else if (a mod 2=1) then write(a, + 1 = ,a+1) else write(b, + 1 = ,b+1); readln;end.
Пожаловаться
- 19.07.2018 13:09
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы