Проще всего воспользоваться таблицей тетрад. Выглядит так
0000 - не зарезирвировано
0001 - А
0010 - В
0011 - Д
0100 - Е
0101 - Ж
0110 - И
0111 - К
1000 - Л
1001 - М
1010 - Н
1011 - О
1100 - П
1101 - Р
1110 - Ь
1111 - Ш
1011 - О, 1100 - П, 0100 - Е, 1000 - Л, 1110 - Ь
Слово ОПЕЛЬ
PascalABC.NET
uses
System.Collections.Generic;
var
arr: List<<em>single</em>> := new List<<em>single</em>>();
i: integer;
begin
writeln('i':2, 'arr[i]':7, #13, new string('-', 9));
for i := 1 to 10 do
begin
arr.Add(Random(-5, 5));
writeln(i:2, arr[i - 1]:7);
end;
writeln(new string('-', 9));
arr.RemoveAt(3);
for i := 1 to 9 do
writeln(i:2, arr[i - 1]:7);
end.
Так как написана программа, в лучшем случае будет найдено только одно слово, должны быть вложенные циклы.
Решение (немного исправленное) в прикрепленном файле.
Ввод - вывод программы:
vvedite text:
<span>it's a text for check programm abcdefgh hgfe pqrstu srqp.
</span>word = for
<span>word = abcdefgh
</span><span>word = hgfe
</span><span>word = pqrstu
</span><span>word = srqp
</span><span>
</span>
Вот этот кусочек будет считать сколько элементов в массиве меньше 6.
x := 0;
for i := 1 to n do
begin
if m[i] < 6 then
inc(k);<span>
end;
writeln(k);
</span>
Не знаю но может другие помогут