Код
1111...11
k раз
без остатка делится на N или определить, что такого k не существует.
Полная версия: "Единицы"
Найти наименьшее число, кратное данному, запись которого в десятичной системе счисления состоит только из единиц, т. е. по данному натуральному N, 1 < N < 32767 получить k, такое, что число вида
1111...11
k раз
без остатка делится на N или определить, что такого k не существует.
1111...11
k раз
без остатка делится на N или определить, что такого k не существует.
Наверное все испугались, что я опять собираюсь выставить их дураками 
Да нет, просто испугались "интересной задачи" !
Да нет, просто испугались "интересной задачи" !
Выкладывай решение. Хватит. Замучил всех. В каких пределах К?
Код
program Ones;
var
n, k: Integer;
s: LongInt;
begin
Write('N>');
Readln(n);
if (n and 1 = 0) or (n mod 5 = 0) then
begin
Write('Такого k не существует');
Exit;
end;
s := 0;
k := 0;
repeat
while s mod 10 <> 1 do Inc(s, n);
s := s div 10;
Inc(k);
until s = 0;
Writeln('k = ', k);
end.
var
n, k: Integer;
s: LongInt;
begin
Write('N>');
Readln(n);
if (n and 1 = 0) or (n mod 5 = 0) then
begin
Write('Такого k не существует');
Exit;
end;
s := 0;
k := 0;
repeat
while s mod 10 <> 1 do Inc(s, n);
s := s div 10;
Inc(k);
until s = 0;
Writeln('k = ', k);
end.
Чем это я, интересно, всех замучил?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.