[Appolinariya_]

Сообщение от icWasya

Код:

function proverka(const n:string):boolean;
var
 k,i,j:integer;
begin
 
  for i:=1 to length(n) do
  begin
    k:=0;//именно здесь;
    for j:=1 to length(n) do
    begin
      if n[i]=n[j] then
        inc(k);
    end;//for j

    if(k>=3) then begin//поставить строгое равенство, 
                              //если нужно только три повторения
      writeln(' digit ',n[i],' occurs ',k,' times');
      result:=true;
      exit;  
    end;

  end;//for i
 Result:=false;
end;

Я все поняла, только если вводить число, в котором три раза встречаются две цифры, то выведется только одна цифра, которая встречается первая. При вводе числа 2241211, выводит, что число 2 встречается два раза, хотя тут есть ещё и 1.