<h3>// PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := ReadReal('x=');
var n := ReadInteger('n=');
var (k, p, q, s) := (x * x, 1.0, 1.0, 0.0);
for var i := 1 to n do
begin
p *= k;
q *= 2 * i * (2 * i - 1);
s += p / q
end;
Println('Сумма =', s)
end.
<span> Истоки моделирования обнаруживаются в далеком прошлом человечества, наскальные рисунки охоты на животных можно рассматривать как модель удачной охоты.</span>
<span>Архитектор готовится построить здание, но прежде чем воздвигнуть его, он сооружает макет этого </span><em>здания,</em><span> чтобы посмотреть, как оно будет выглядеть. Это модель. Для того чтобы объяснить внутреннее строение человека или животного учитель демонстрирует модель или плакат, на котором наглядно можно продемонстрировать строение внутренних органов. Это модель.</span>
<span>Перестановка мебели. </span>
<span>На стене висят картины, изображающие пейзаж природы. Это модель.</span>
<span>Глобус – это модель земного шара. Манекен в магазине – модель человека.</span>
<span>В роли модели могут выступать самые разнообразные объекты, в том числе условные и мысленные (изображения, описания, схемы, карты, математические формулы, компьютерные программы и т.д.)</span>
<span>Перечислять примеры моделей можно сколь угодно долго.</span>
<span>А для чего же создают модели? (Солнечная система. Модель атома. Модель двигателя внутреннего сгорания.</span>
<span> Геологическая модель. Модель атомного взрыва. Модель самолета.) </span>
Максимальное кол-во кусочков, при котором они могут
расположиться, не совпав друг с другом - шахматный порядок. Маша должна взять на 1
больше.
Вертикальный ряд
можно заполнить максимально "шахматным порядком" если взять [17 / 2] + 1 = 9 "закрашенных
клеток" (кусочков пазла).
Следующий столбец будет иметь 17 - 9 = 8 "закрашенных
клеток" и так далее ... (9+8) * 26 / 2 = 221 всего "закрашенных
клеток"
221 + 1 = 222 кусочка пазла надо взять
В общем пол коробки и еще один)
var a: integer;
begin
a:=1;
while a<100 do
a:=(a+2)*2;
writeln(a);
end.