Ну, раз считают "половинками", то и система будет "половинчатая")))
Значит, основание системы равно 1/2 или 0,5
Хотя, вряд ли. Надо подумать.
Фактически, должно выполняться равенство
где х - искомое основание системы
Но тут мы пользуемся алфавитом десятичной системы, а у новой системы должен быть свой алфавит. Противоречие какое-то.
В общем, я запутался((((
Во-первых, поскольку запись числа содержит 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.
40*60=2400 символов на одной странице
2400*25=60000 байт(ТК 1 байт равен одному символу).думай сам правильно или нет но она странная
...
begin
readln(a);
c:=amod10;
a:=adiv10; k:=1;
while a>0 do begin
d:=amod10;
if d=c then inc(k);
a:=adiv10;
end;
writeln(k);
end.