дано число n проверить есть ли в записи 3 одинаковых числа (число не больше 10 000)
Answers & Comments
Endok
Var A:array[1..5] of Integer; j,l,i,k,N:integer; begin Readln(N); While not(N=0) do begin k:=k+1; A[k]:=N mod 10; N:=N div 10; end; For i:=1 to min(3,k) do begin N:=A[i]; l:=0; For j:=1 to k do If N=A[j] then l:=l+1; If l>=3 then begin Writeln('В записи есть три одинаковых чисел'); l:=20; break; end; end; If not(l=20) then Writeln('В записи нет трех одинаковых чисел'); end.
Answers & Comments
j,l,i,k,N:integer;
begin
Readln(N);
While not(N=0) do
begin
k:=k+1;
A[k]:=N mod 10;
N:=N div 10;
end;
For i:=1 to min(3,k) do
begin
N:=A[i];
l:=0;
For j:=1 to k do
If N=A[j] then
l:=l+1;
If l>=3 then
begin
Writeln('В записи есть три одинаковых чисел');
l:=20;
break;
end;
end;
If not(l=20) then
Writeln('В записи нет трех одинаковых чисел');
end.