Сколько различных слов длиной 5 символов можно записать , используя 2 буквы ? - id764758120210121 от Fennekin1 21.01.2021 10:55

Question

Информатика: Сколько различных слов длиной 5 символов можно записать , используя 2 буквы ?

Fennekin1 · Accepted Answer

const
z = 30; // максимально число слов
var
s,w : string;
n,p,i,j,l : integer;
words : array [1..z] of string;
kw : array [1..z] of integer;
r : boolean;
begin
writeln ('введите строку');
readln (s);
writeln ('укажите кол-во повторений');
readln (n);
l := Length(s);
p := 1;
w := '';
for i := 1 to l do
if (s[i] <> ' ') and (s[i] <> '.') and (s[i] <> ',') then
w := w + s[i]
else
begin
for j := 1 to p do
if w = words[j] then
begin
kw[j] := kw[j] +1;
r := true;
end;
if not r then
begin
p := p +1;
words[p] := w;
kw[p] := kw[p] +1;
end;
w := '';
r := false;
   end;
      for i := 1 to p do
if kw[i] > n then
writeln (words[i]);
      end.

Сколько различных "слов" длиной 5 символов можно записать , используя 2 буквы ?

MOGZ ответил