Во-первых, поскольку запись числа содержит 3 цифры, то 381>=N^2 (подходят целые N<19) и 381<N^3 (N>7). Теперь разберем второе условие. Если отнять от 381 тройку, то в искомой системе счисления 381 будет заканчиваться на ноль. Это значит, что N является делителем числа 378. Легко проверить, что N=18 подходит под оба условия и является наибольшим возможным основанием в силу неравенства N<19
Var a:string;
begin
writeln ('Введите день недели с большой буквы');
read (a);
if a='Понедельник' then writeln ('В этот день 6 уроков');
if a='Вторник' then writeln ('В этот день 6 уроков');
if a='Среда' then writeln ('В этот день 6 уроков');
if a='Четверг' then writeln ('В этот день 6 уроков');
if a='Пятница' then writeln ('В этот день 5 уроков');
if a='Суббота' then writeln ('В этот день 3 урока');
if a='Воскресенье' then writeln ('В этот день уроков нет');
if (a<>'Понедельник') and (a<>'Вторник') and (a<>'Среда') and (a<>'Четверг') and (a<>'Пятница') and (a<>'Суббота') and (a<>'Воскресенье') then
writeln ('День недели введен неправильно');
end.
110010 = 32 + 16 + 2 = 50
1100 = 12
50 + 12 = 62 (всего тетрадей).
Если информатика, то утверждение верное, так ведь?
Например для 45, полиндромом будет 54, а их произведение равно 2430.
Задание, по сути, очень простое для любых двузначных чисел.