Var n,i:integer; f:longint; s:real;
begin
write('n = ');
readln(n);
f:=1; s:=2;
for i:=2 to n do
begin
f:=f*i;
s:=s+1/f;
end;
writeln('s = ',s);
end.
Пример:
n = 10
s = 2.71828180114638
Ну смотри ,легче всего предположить что апельсины по 5 ,так как их 3 и сумма 15,дале если мы узнали ,мы можем предположить что персики по 2 , так как их сумма 4, чтобы удостовериться предпологаем что киви 3 ,так как апельсин 5 +3 =8 , Проверяем персики + киви ,это равно 2+3+1 ,дальше по горизонтали Апельсин 5 + киви 3 ,сходится , 5 +2 +2 =9,тоже сходится , следовательно клубника очевидно равна 1 , проверяем 5+1+2=8, 1+3+2=6 ,сходится,вот и решение
16 (одиночных) + 7 (из 4 триугольников) + 3 (из 9 триугольников) + 1 (большой) = 27
Д
Поскольку это не операция, не Сохранение.