Какими способами можно представить алгоритм

Формулой блок-схемой см. в

// pascalabc.net 3.2, сборка 1338 от 16.11.2016 begin   // вводим строку с клавиатуры, приводим буквы к строчным,   // разбиваем на слова по пробелу и помещаем их в массив aw   var aw: =readlnstring('-> ').tolower.towords;   // пропускаем массив через фильтр, оставляющий слова, содержащие   // букву "а" и подсчитываем, сколько слов прошло через него.   // полученное количество выводим.   writeln('слов с "а": ',aw.where(w-> pos('а',w)> 0).count) end. пример -> наша таня громко плачет: уронила в речку мячик слов с "а": 4

// вот тебе решение на паскале, в си сам переделывай function check(n: integer): boolean; begin     result : = true;     var t : = n;     while t > 0 do     begin         if t mod 10 = 0 then //проверка цифры на ноль         begin             t : = t div 10;             continue;         end;         if n mod (t mod 10) = 0 then             t : = t div 10         else         begin             result : = false;             exit;         end;     end; end; begin     var n : = readlninteger('n =');     for var i : = 1 to n do         if check(i) then print(i); end.