Дано ціле число. якщо воно додатнє додати до нього 1, в іншому випадку не робити нічого. вивести отримане число на екран.

П0 /-/ x<0 08 ИП0 1 + П0 ИП0 С/П

Алг
нач
цел Кол_во=256, логтаб Матрица[1:Кол_во] цел Число,j 

Матрица[1]:=нет
нц для Число от 2 до Кол_во 
Матрица[Число]:=да
кц
нц для Число от 2 до div(Кол_во,2)
нц для j от 2 до div(Кол_во,Число)
Матрица[Число*j]:=нет 
кц
кц
нц для Число от 1 до Кол_во
если Матрица[Число]=да то
вывод Число," "
все
кц
кон 

Результат выполнения программы: 
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251

Первая лодка: в одну сторону лодка отвозит до 10 человек, обратно её возвращает не менее 1 человека. Значит, за один раз ("туда-обратно") она отвозит 9 человек (или 10, если не нужно возвращаться обратно).

На то, чтобы перевести 18 человек, ей нужен один рейс "туда-обратно" и еще один рейс "туда", всего понадобится 12 + 12/2 = 18 минут.

Вторая лодка: в одну сторону лодка отвозит до 3 человек, обратно её возвращает не менее 1 человека. Значит, за один раз ("туда-обратно") она отвозит 2 человек (или 3, если не нужно возвращаться обратно).

На то, чтобы перевести 18 человек, ей нужно 8 рейсов "туда-обратно" и еще один рейс "туда", всего понадобится 8 * 3 + 3/2 = 25,5 минут.

Следует выбрать первую лодку, на ней перевозка будет на 25,5 - 18 = 7,5 минут быстрее