Ответы на вопрос:
const
K = 5; // можно сделать переменной и запрашивать у пользователя
alpha : array[1 .. 4] of char = ('Ы', 'Ш', 'Ч', 'О');
var count : integer := 0;
procedure p(s : string);
begin
if s.Length = K then
begin
writeln(s);
inc(count);
end
else
begin
var L := s.Length;
if (s.Length < 2) or (s[2] = 'Ы') then
foreach var ch : char in alpha do p(s + ch);
end;
end;
begin
p('');
writeln('count = ', count);
end.
Популярно: Информатика
-
бюро04.06.2021 05:45
-
loser8009.08.2022 20:16
-
ShuMaksik30.04.2022 11:45
-
Nastyaninisvn27.04.2021 06:15
-
marushakeduard10.11.2022 03:27
-
DanilNaumov21.11.2020 08:05
-
Alinkass9326.11.2021 22:35
-
Catiy23.03.2022 10:42
-
yuliatimofeewap08u9q30.04.2023 17:32
-
polina428125.01.2020 02:08