Вопрос по информатике:
Даны два целых числа.если они оба четны,то большее из них поделить на 2;если оба нечетные, то каждое умножить на 2; в противном случае нечетное из чисел увеличить на 1.....Помогите в Паскале написать
- 11.03.2015 20:08
- Информатика
- remove_red_eye 15349
- thumb_up 42
Ответы и объяснения 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.
- 13.03.2015 00:00
- thumb_up 36
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.