Дано натуральное число n (1n1188), определяющее возраст человека (в месяцах выразить возраст в годах и месяцах. например, 21 год 10 месяцев, 52 года 1 месяц, 46 лет равно и т.д.

program saidim; uses crt; var  m: integer; begin  writeln('******************************');   writeln('**    переводилка возраста    **');   writeln('******************************');   writeln();   writeln('введите возраст в месяцах');   readln(m);   writeln('*** alphaues is ***');   writeln();   // writeln('возраст равен ',m div 12,' лет ',m mod 12,' месяцев');   write('возраст равен ',m div 12);   case ((m div 12) mod 10) of      1:   write(' год ');       2,3,4:   write(' годa ');       else    write(' лет ');   end;   case (m mod 12) of      0:   writeln(' ровно ');       1:   writeln(m mod 12,' месяц ');       2,3,4:   writeln(m mod 12,' месяцa ');       else    writeln(m mod 12,' месяцев ');   end; end.

1. решается с стека (алгоритм дейкстры для обработки обратной польской записи). предполагается, что во вводимой строке содержится корректное выражение, удовлетворяющее условиям . // pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin   var w: =readlnstring.towords;   var st: =new stack < integer> ;   var r: =0;   foreach var t in w do       if t[1].isdigit then st.push(t.tointeger)       else begin           var a: =st.pop;           var b: =st.pop;           case t[1] of           '+': st.push(a+b);           '-': st.push(b-a);           '*': st.push(a*b)           end;       end;   writeln(st.pop)  end. контрольный пример 8 9 + 1 7 - * -102 2. крайне просто решается при регулярного выражения с рекурсией. фактически вводить количество шаров не нужно, поэтому после ввода оно отбрасывается. // pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin   writeln(readlnstring.towords.skip(1).joinintostring('').           matchvalue('{2,}').length); end. контрольный пример 5 2 3 3 3 1 3

Впрограмме предполагается, что "0" (если это средняя цифра числа) не отбрасывается. например: 105  ⇒ 10  ⇒ 01  ⇒ 501 (а не 105  ⇒ 10  ⇒ 1  ⇒ 51).#include < iostream> using namespace std; int main() {     int n,n1,n2,n3,x;     cin > > n;     n1 = n / 100;     n2 = n / 10 % 10;     n3 = n % 10;     x = n3*100+n2*10+n1;     cout < < x < < endl;     system("pause"); } пример: 21 120