Даны два целых числа. Если они оба четны, то большее из

Даны два целых числа. Если они оба четны, то большее из их поделить на 2; если оба нечетны, то каждое помножить на 2; в противном случае нечетное из чисел прирастить на 1. Блок-схему надобно и программку

Задать свой вопрос
1 ответ
Var a,b,c:longint;begin readln(a,b); if bgt;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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт