<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
Range(20, 50).Where(t -> (t mod 3 = 0) and (t mod 5 <> 0)).Println
end.
<h2>21 24 27 33 36 39 42 48</h2>
Ну смотри. У тебя цикл выполняется 10 раз. На каждой итерации проверяется, не равен ли остаток от деления счётчика на 3. Если равен, то на значение элемента массива с текущим номером увеличивается переменная S. Счётчик отсчитывается от 1 до 10. Соответственно, подходят значения 3, 6 и 9. Поскольку в массиве, как ты пишешь, номера индексов, то берём их: 3 + 6 + 9 = 18.
5 страниц
84000бит=10500байт
1 символ =1байт
30*70=2100 байт - 1 страница
10500/2100 = 5 страниц
но... если учесть, что перевод строки занимает 2 байта... вычесления будут немного другими.
(70+2)*30=2160 1 страница (вместо 2100
Открыть,изменить,копировать,вставить ,удалить
Это задача со спичками.
Исходная раскладка:
XI+<u>I</u>X=XXII
Перекладываем спичку "единица" от второго слагаемого в первое:
XI<u>I</u>+X=XXII