Напишите процедуру которая принимает числовой параметр-возраст человека в годах и выводит этот возраст со словом год, года или лет. например 21 год, 22года, 12 лет в паскале

100 раз решал подобные var n: integer; begin readln(n); if (n mod 10 = 1) and ((n mod 100) div 10  < > 1) then writeln(n,' год') else if (n mod 10 >   1) and (n mod 10 <   5) and ((n mod 100) div 10 < > 1) then writeln(n,' года') else writeln(n,'  лет'); end.

Если запись числа оканчивается на 8, то система счисления (далее - с/с) не может иметь основание меньше чем 8+1=9. в этой системе счисления представление числа 30 будет двухзначным (с одного разряда может быть представлено число, не превышающее 8, а двух разрядов достаточно для записи числа 9²-1=80, что превышает 30). двухзначное число может быть записано в с/с по основанию n следующим образом: na+b. по условию число оканчивается цифрой 8 и его значение равно 30. получаем уравнение: na+8=30 ⇒ na=22. раскладываем 22 на простые множители: 22=1х2х11 решение уравнения в целых числах при условии n> 8 дает два варианта ответов: (n=11, a=2), (n=22, a=1). это порождает два числа: существует ли с/с по основанию n, в которой запись числа 30 будет одноразрядной? уравнение 8n=30 не имеет решений в целых числах, поэтому такой с/с не существует. ответ: 30(10)=18(22)=28(11).

Одна из простейших игр со стратегией, разновидность игры  "ним".игра под названием "кто первый скажет "сто"? "чтобы первым достичь 100, надо заставить противника при его последнем ходе назвать число 90 до  99 - прибавив к  этому числу  от 10 до 1, мы выигрываем.  следовательно, при своем предпоследнем ходе, мы должны назвать число 89=100-(10+1).  перед этим надо назвать числа 89-11=78, 67, 56, 45, 34, 23, 12, 1.начальное число 1 можно найти сразу как остаток от целочисленного деления 100 на 11. а далее делать шаги по указанным цифрам. для этого, если противник прибавляет некое m, надо прибавлять 11-m. или, ничего не считая, называть числа 1, 11+1=12, 12+11=32, ..  87 и 100.в общем виде, если требуется первым назвать число n, используя числа от 1 до m, начальное число определяем, как остаток деления n на (m+1). а далее, когда противник прибавляет некое k, мы прибавляем m+1-k.