# просчитайте количество целых чисель от L до R все цифры которых различный
# Код на ruby 2.2.3p173
def allDifferentNumbers?(n)
a = []
while n > 0 do
return false if a.include?(n % 10)
a << n % 10
n = n / 10
end
return true
end
def zadanie(l, r)
k = 0
for i in l..r
k += 1 if allDifferentNumbers?(i)
end
return k
end
# Примеры применения
p zadanie(11, 13)
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var m:=Readinteger('Что ищем?');
var k:=a.FindAll(x->x=m).Count;
Writeln('Найдено таких элементов- ',k);
if k>0 then Writeln('Номер первого такого элемента- ',
a.FindIndex(x->x=m)+1)
end.
<u>Пример</u>
n= 17
-46 33 -9 -22 14 -46 -6 -3 -7 -18 46 42 -40 -40 0 29 -9
Что ищем? -9
Найдено таких элементов- 2
Номер первого такого элемента- 3
1) Цикл выполнится 134 раза, т.к. i = 134
2) 134 раза к y прибавится 2, т.е. 134*2 = 268 будет выведено на экран
Ну отдыхает и че?.......,,.,,