<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do s+=1/i;
Writeln('S=',s)
end.
<u>Пример</u>
n= 10
S=2.92896825396825
Воспользуемся расширенной записью числа в системе счисления по неизвестному основанию n.
Итак, основание системы счисления равно 8.
36(8)=3*8+6=30(10), 43(8)=4*8+3=35(10), 13(8)=8*1+1=11(10)
<em><u>Ответ:</u></em><span>Система счисления, использованная учеником - восьмеричная.
Маме 30 лет, папе 35 лет, сыну 11 лет.</span>