===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0). // читать последовательность
Where(p -> (p mod 3 = 0) and (Abs(p) mod 10 <> 2)). // условие отбора
Count. // посчитать, сколько отобралось
Println // вывести результат
end.
1)Ввод данных (допустим а, в, с (строго в этом порядке))
2)Сравнение а>A (Если "правда" тогда "2а" если нет "2б")
2а)Сравнение a<B (Если "правда" тогда "3" если нет "2б")
2б)Переход к пункту 2 (При этом "a" меняется на "b" и т.д.)
3) вывод данных (если есть еще числа тогда "2б", если нет тогда окончание блок схемы)
<span>for (i=0; i printf("%i ", fun1(mas[i]); тут что-то странное написано</span>
I=3, так как 2³=8
____
Удачи!
Вариант реализованный в Excel
Лист защищен без пароля, чтобы случайно не повредить формулы.
Формулы можно увидеть в строке формул.