Вопрос по информатике:
РЕШИТЬ В ПАСКАЛЕ. СРОЧНО
Если число является двузначным и чётным уменьшить его в 2 раза иначе увеличить на 10 раз
Пожаловаться
- 17.04.2018 20:05
- Информатика
- remove_red_eye 12993
- thumb_up 15
Ответы и объяснения 1
Var A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
if (A>9)and(A<100)and(A mod 2 = 0) then A:=A div 2
else A:=A+10;
WriteLn(A);
End.
Begin
Write('Введите целое число: ');ReadLn(A);
if (A>9)and(A<100)and(A mod 2 = 0) then A:=A div 2
else A:=A+10;
WriteLn(A);
End.
Пожаловаться
- 18.04.2018 08:02
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы