Выбрать из четырехзначных чисел те, запись которых содержит 3 одинаковых цифры

@PolzOr · Регистрация: 20.11.2010

Задача: Даны целые четырехзначные числа n. Выбрать из них те запись которых содержит 3 одинаковых цифры.(цифры могут быть на разных позициях)

@pryda · 21.11.2010, 01:52

Pascal

var i:integer;
 
function get3(n:integer):boolean;
var s:string;
    i,k,j:integer;
begin
str(n,s);
for i:=1 to length(s) do
begin
  k:=0;
  for j:=1 to length(s) do
  if (i<>j)and(s[i]=s[j]) then inc(k);
  if k>=2 then
  begin
    get3:=true;
    break;
  end;
end;
if k<2 then get3:=false;
end;
 
begin
for i:=1000 to 2000 do
if get3(i) then writeln(i);
readln;
end.

@PolzOr 0 / 0 / 0 Регистрация: 20.11.2010 Сообщений: 22
		1
	Выбрать из четырехзначных чисел те, запись которых содержит 3 одинаковых цифры 20.11.2010, 18:47. Показов 2138. Ответов 1 Метки нет (Все метки) Задача: Даны целые четырехзначные числа n. Выбрать из них те запись которых содержит 3 одинаковых цифры.(цифры могут быть на разных позициях) 0

Опции темы

Выбрать из четырехзначных чисел те, запись которых содержит 3 одинаковых цифры

Решение