Question

РЕШИТЬ В ПАСКАЛЕ. СРОЧНО

Если число является двузначным и чётным уменьшить его в 2 раза иначе увеличить на 10 раз

Answer 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.