// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 function SHarm(m:integer):real:=Range(1,m).Select(x->1/x).Sum;
begin var a:=ReadReal('a='); var m:=1; while SHarm(m)<=a do Inc(m); Writeln('m=',m) end.
Тестовое решение: a= 5 m=83
Указанный ряд - это известный в математике расходящийся гармонический ряд. Его приближенное значение суммы можно определить по формуле Эйлера: Нам требуется определить m, для которого S(m)>a, тогда Будем искать m, отбрасывая дробную часть полученного результата, а потом делать уточнение путем непосредственного вычисления сумм.
function SHarm(m:integer):real:=Range(1,m).Select(x->1/x).Sum;
begin var a:=ReadReal('a='); var m:=1; if a<=3 then begin while SHarm(m)<=a do Inc(m); Writeln('m=',m) end else begin var s:real:=Int(exp(a-C)); if a<10 then begin m:=Trunc(s); while SHarm(m)<=a do Inc(m); Writeln('m=',m) end else Writeln('m=',s) end end.
В этом случае можно проводить оценочный расчет для больших значений а:
Программа векторной графики CorelDRAW 12 вместе с программой растровой графики Corel PHOTO-PAINT 12 и несколькими дополнительными программами составляет пакет графических программ CorelDRAW Graphic Suite 12, разработанный известной фирмой-производителем графических программных продуктов Corel Corporation. CorelDRAW 12 предназначена для разработки макетов документов, в которых преобладает графическая информация, с целью их публикации в качестве типографской продукции и в электронном виде. Программы, позволяющие обрабатывать векторные объекты наряду с растровыми изображениями и текстовой информацией, обычно называются программами векторной графики. Это название можно отнести и к программе CorelDRAW 12. Вместе с тем, ее функциональные возможности существенно шире, чем у других известных программ подобного типа (Macromedia FreeHand и Adobe Illustrator). надеюсь это подойдёт. когда то писала такое 5 получила
Для начала найдём "вес" одной буквы такого алфавита. Воспользуемся формулой:
где m - количество букв в алфавите, а n - минимальная степень числа "2", которая в себя уместить все буквы алфавита.
m=64, тогда
n=6
6 бит нужно для записи одной буквы.
По условию задачи нам нужно записать 60 таких символов.
360 бит нужно для записи 60 символов. Или 45 байт.