9=1×9; 18=2×9; 27=3×9; ... 162=18×9
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
Writeln('S=',1.To(18).Select(i->1/(9*i)).Sum)
end.
<u><em>Результат</em></u>
S=0.388345342021813
1-2
------------------------------------
86 клавиш, ну т.е. 1 ответ
Слово вересень у словнику розташовано раніше, ніж жовтень. Бо літера "В" йде раніше, аніж - "Ж".
Var god,mes,chislo:integer;
begin
Write('Какой год '); Readln(god);
write('Сколько дней в текущем месяце? '); Readln(mes);
write('Какое сегодня число? '); readln(chislo);
write('Количество дней до конца текущего месяца: ',mes-chislo);
<span>
end.</span>
128 возможных вариантов.
Воспользуемся формулой N=2^i
i=7бит