141 Если точно. Проверь наоборот.
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
//Наверное здесь опечатки 1+1/1+2+1/1+2+3+···+1/1+2+···n скорее всего имелось ввиду так:
//1+1/(1+2)+1/(1+2+3)+···+1/(1+2+···n)
var i,n:integer;
s,s1:real;
begin
readln(n);
s:=0;s1:=0;
for i:=1 to n do begin
s1:=s1+i;
s:=s+1/s1;
end;
writeln (s);
end.
Начало
Нужно сходить в магазин и купить молоко,хлеб,макароны,масло
Одеться
Взять деньги
Выйти из дома
Пойти по улице до магазина
Зайти в магазин
Подойдти к кассе
Попросить молоко
Попросить хлеб
Попросить макароны
<span>Попросить масло
Проверить, все ли попросил
Оплатить покупку
Положить все в пакет
Выйти из магазина
Идти домой
Зайти домой
Раздеться
Положить молоко и масло в холодильник
Положить макароны в шкаф
Положить хлеб в хлебницу
Все куплено
Конец
<span>
Просто обведи начало и конец в круглые скобки, остальное в квадратные</span></span>
Мне кажется что единичным в данном случаи. Так как Коле не понравился кретный кинофильм, а не вообще кинофильмы.
Схема в приложенной картинке.