У меня проблема с мышью, когда я провожу по столу и у её провода хоть на чуть-чуть сменяемся положения (которе у самой мышки) она выключается, но сразу включается обратно, но в некоторых случаях она просто не хочет включаться без перезагрузки, могу скинуть ролик, что происходит, а вопрос у меня в том, что примут ли её на ремонт в днс-е?
piece = record
value: string[10];
count := 1;
end;
var
pieces: array[1..200]of piece;
i, j, n, pieces_n: integer;
s, p: string;
found: boolean;
imax:=1;
begin
read(s);
read(n);
for i := 1 to length(s) - n + 1 do
begin
p := Copy(s, i, n);
found := false;
for j := 1 to pieces_n do
if pieces[j].value = p then begin
pieces[j].count := pieces[j].count + 1;
found := true;
if pieces[imax].count < pieces[j].count then
imax := j;
break;
end;
if not found then begin
pieces_n := pieces_n + 1;
pieces[pieces_n].value := p;
end;
end;
writeln(pieces[imax].value);
end.