Напишите код на Паскаль. 2)Необходимо вычислить:

- модуль x;

- целую часть вещественного числа x;

- получить случайное число в диапазоне от 0 до р, р – целое.
​

В шарпе чисто на switch сделать практически нереально.
static String getAgeStatus(int age)
{
int type = 6;
if (age < 1) type = 1;
if ((age >= 1) && (age <= 11)) type = 2;
if ((age >= 12) && (age <= 15)) type = 3;
if ((age >= 16) && (age <= 25)) type = 4;
if ((age >= 26) && (age <= 70)) type = 5;
switch (type)
{
case 1:return "младенец";
case 2: return "ребенок";
case 3: return "подросток";
case 4: return "юноша";
case 5: return "мужчина";
default: return "пожилой человек";
}
}

Если число 49 записывается как 121, значит первый остаток от деления равен 1, то есть основанием системы счисления является число, кратное 48.

121 имеет 3 разряда, значит основание однозначно меньше 10 и больше 2. Подходят 3, 4, 6, 8.

Учитывая, что в числе 121 три разряда, значит число 48 делилось всего три раза. 
Число 8 не подойдет, т.к. 48/8=6, значит будет всего два деления.
Число 3 не подойдет, т.к. 48/3 = 16, 16/3=5 - то есть тут будет больше трёх знаков.
Число 4 не подойдет, т.к. 48/4=12, а 12 делится на 4 без остатка, но, судя по числу, во втором делении остаток должен быть равен 2.
Остаётся число 6. Проверим

49/6=8 |1
8/6 = 1 |2
1/6=0 |1

121(6)