Во-первых, поскольку запись числа содержит 3 цифры, то 381>=N^2 (подходят целые N<19) и 381<N^3 (N>7). Теперь разберем второе условие. Если отнять от 381 тройку, то в искомой системе счисления 381 будет заканчиваться на ноль. Это значит, что N является делителем числа 378. Легко проверить, что N=18 подходит под оба условия и является наибольшим возможным основанием в силу неравенства N<19
Program zadanie;
Var a,b:integer;
Begin
Writeln('Введите год рождения');
Read(a);
Writeln('Введите текущий год');
Readln(b);
If b>a Then
begin
a:=(b-a)*365;
Writeln('Примерное число прожитых дней=',a);
end
Else If a>b Then Writeln('Не правильно указаны год рождения и текущий год')
Else
begin
a:=a*365;
Writeln('Примерное число прожитых дней=',a);
end;
End.
Var
i,s:integer;
begin
s:=0;
for i:=15 to 25 do
s:=s+sqr(i);
writeln(s);
readln;
end.
While (a < -1) and (a > -1) do
Тело этого цикла никогда не будет выполнено даже один раз.
Условие требует, чтобы значение a было ОДНОВРЕМЕННО меньше -1 И БОЛЬШЕ -1.