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

@Batuade · Регистрация: 13.04.2018

Написал данную программу, но не могу понять, куда нужно вставить условие для промежутка (чтобы при выходе за промежуток выдавало сообщение с ошибкой)

Pascal

var i,A,B,C1,C2,C3,C4 : integer;
begin
 writeln('Введите промежуток:');
 write('A=');
 read(A);
 write('B=');
 read(B);
 for i:= A to B do
 begin
  C1:=i div 1000;
  C2:=(i mod 1000) div 100;
  C3:=((i mod 10000) div 10) mod 10;
  C4:=i mod 10;
   if (((C1 = C2) and (C1 = C3)) or 
   ((C1 = C2) and (C1 = C4)) or 
   ((C2 = C3) and (C2 = C4)) or 
   ((C3 = C4) and (C3 = C1))) then
  writeln(i);
 end;
end.

@3D Homer · 30.04.2018, 23:59

О каком выходе за промежуток вы говорите, если у вас цикл for i:= A to B do, то есть i меняется от A до B включительно?

Почему C3:=((i mod 10000) div 10) mod 10, а не C3 := (i mod 100) div 10?

@Batuade · 01.05.2018, 00:52 **[ТС]**

в условии задачи нужно сделать программу только для четырехзначных чисел

за замечание в C3 спасибо

Добавлено через 6 минут
т.е. мое условие (A>=-9999 and B<=9999)

@3D Homer · 01.05.2018, 00:52

Если вы имеете в виду, что условие не подразумевает, что A и B — четырехзначные, то, можно вести цикл от max(1000, A) до min(9999, B).

@Batuade · 01.05.2018, 00:58 **[ТС]**

а что касательно отрицательных цифр?

@3D Homer · 01.05.2018, 01:06

Вообще есть предположение, что под k-значными числами имеются в виду натуральные. Но если вы точно знаете, что нужно рассматривать и отрицательные числа, делайте два цикла: один для отрицательных чисел, другой для положительных. Это если A < 0 < B. Если A и B одного знака, то достаточно одного цикла.

@3D Homer $Эксперт по математике/физике$ 4427 / 3227 / 1042 Регистрация: 01.09.2014 Сообщений: 8,981
	30.04.2018, 23:59	2
	О каком выходе за промежуток вы говорите, если у вас цикл for i:= A to B do, то есть i меняется от A до B включительно? Почему C3:=((i mod 10000) div 10) mod 10, а не C3 := (i mod 100) div 10? 1

@Batuade 0 / 0 / 0 Регистрация: 13.04.2018 Сообщений: 19
	01.05.2018, 00:52 [ТС]	3
	в условии задачи нужно сделать программу только для четырехзначных чисел за замечание в C3 спасибо Добавлено через 6 минут т.е. мое условие (A>=-9999 and B<=9999) 0

@3D Homer $Эксперт по математике/физике$ 4427 / 3227 / 1042 Регистрация: 01.09.2014 Сообщений: 8,981
	01.05.2018, 00:52	4
	Сообщение было отмечено Batuade как решение Решение Если вы имеете в виду, что условие не подразумевает, что A и B — четырехзначные, то, можно вести цикл от max(1000, A) до min(9999, B). 1

@Batuade 0 / 0 / 0 Регистрация: 13.04.2018 Сообщений: 19
	01.05.2018, 00:58 [ТС]	5
	а что касательно отрицательных цифр? 0

@3D Homer $Эксперт по математике/физике$ 4427 / 3227 / 1042 Регистрация: 01.09.2014 Сообщений: 8,981
	01.05.2018, 01:06	6
	Вообще есть предположение, что под k-значными числами имеются в виду натуральные. Но если вы точно знаете, что нужно рассматривать и отрицательные числа, делайте два цикла: один для отрицательных чисел, другой для положительных. Это если A < 0 < B. Если A и B одного знака, то достаточно одного цикла. 1

Опции темы

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

Решение