Найти все четырехзначные числа, в которых есть две одинаковые цифры

@Driiim · Регистрация: 25.01.2013

найти все четырехзначные числа, в которых есть две одинаковые цифры

@antonboom · 29.04.2013, 14:56

только проверь

Pascal

var ch,i,j:integer;
    a: array[1..4] of integer;
begin
for ch:=1000 to 9999 do begin
for i:=1 to 4 do
for j:=2 to 4-i do
 
a[1]:= ch div 1000;
a[2]:= (ch div 100) mod 10;
a[3]:= (ch div 10) mod 100;
a[4]:= ch mod 10;
 
If a[i] = a[j] then begin
write(ch,' ');
 
end; end;
end.

@Driiim 0 / 0 / 0 Регистрация: 25.01.2013 Сообщений: 119
		1
	Найти все четырехзначные числа, в которых есть две одинаковые цифры 29.04.2013, 12:38. Показов 2652. Ответов 1 Метки нет (Все метки) найти все четырехзначные числа, в которых есть две одинаковые цифры __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Найти все четырехзначные числа, в которых есть две одинаковые цифры

Решение