Pascal abc: составьте программу вычисления суммы четных чисел в диапазоне от 1 до 100

Var i,s: integer; begin s: =0; //сумматор обнуляем обязательно for i: =1 to 100 do if i mod 2=0 then s: =s+i; //узнаем четное ли число и записываем его в нашу сумму writeln('сумма четных чисел равна ',s); end; все что после // (два слэша) можно удалить, так пишутся комментарии в программе

81920 бит : 8 = 10240 байт

10240 байт : 1024 = 10 килобайт

1 способ.

сначала переправляются мальчик и взрослый. потом этот же мальчик оотправляется обратно и переправляет второго взрослого. а затем мальчик возвращается, берёт второго мальчика, и они плывут на другой берег.2 способ.

сначала взрослый и мальчик переправляются через реку. обратно плывёт мужчина.  потом этот мужчина берёт второго мальчика и они вместе переправляются через реку. мальчик плывтобратно и вместе со вторым мужчиной переплывет на второй берег реки. вот и всё.