РЕШИТЬ В ПАСКАЛЕ. СРОЧНО
Если число является двузначным и чётным уменьшить его в 2 раза иначе увеличить на 10 раз
Нет комментариев
Ответы
Гость 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.
Нет комментариев
Похожие вопросы
Информатика
Пожалуйста, заранее спасибо )))...
Информатика
Ответить на вопросы 15 и 16 по Microsoft Word...
Список предметов
