Функция нахождения простых множителей

[ALICAPAVLOVA]

Как реализовать функцию нахождения всех
простых множителей числа A на экран
таких, что в них нет цифры B в младшем
разряде десятичной записи?
Помогите, пожалуйста

[macomics]

Q := Round(SQRT(A) + 1);
I := 2;
while I < Q do begin
  while A mod I = 0 do begin
    A := A div I;
    if I mod 10 <> B then WriteLn(I);
  end;
  J := I;
  I := I + 1;
  while J > 1 do if I mod J = 0 then begin
    J := I;
    I := I + 1;
    if I >= Q then break;
  end else J := J - 1;
end;

Не самый оптимальный вариант, но думаю вам хватит.

[digitalis]

Судя по вопросу об треугольнике, предметом интересов ALICAPAVLOVA является С++, но это большой секрет! И он (компилятор) почешет свою лысину, узрев := и WriteLn(I)

[ALICAPAVLOVA]

Вы правы насчет C++,забыла поставить
Прошу прощения

[ALICAPAVLOVA]

digitalis,а вы только оставляете ироничные комментарии или это ваш способ помочь?
Если со своим багажом знаний вы помогли, я была б рада

[ALICAPAVLOVA]

Вы правы насчет C++,забыла поставить
Прошу прощения

Сообщение от macomics

Q := Round(SQRT(A) + 1);
I := 2;
while I < Q do begin
  while A mod I = 0 do begin
    A := A div I;
    if I mod 10 <> B then WriteLn(I);
  end;
  J := I;
  I := I + 1;
  while J > 1 do if I mod J = 0 then begin
    J := I;
    I := I + 1;
    if I >= Q then break;
  end else J := J - 1;
end;

Не самый оптимальный вариант, но думаю вам хватит.

Комментатор digitalis прав насчет С++,спасибо вам за помощь

[digitalis]

Я с удовольствием бы, но С++ - не моя стихия, боюсь хуже сделать, чем помочь. Если надо на Фортране-IV или PL-I - обращайтесь. А уж Дельфи - так могу и кофию не попить, решаючи.
А мои комменты хоть и ироничные, но беззлобные и служат токмо направлению молодых умов к чётким формулировкам. Математика и программирование в т.ч. - это не съезд КПСС и требует определённости. Шаг влево-вправо - расстрел ошибка.
-------------
Вот помощь нр.1 - практическая: не надо посты один за одним, используйте кнопку ПРАВКА.

[macomics]

Комментатор digitalis прав насчет С++,спасибо вам за помощь

int Q = round(sqrt(A) + 1), I = 2, J;
while (I < Q) {
  while (A % I = 0) {
    A /= I;
    if (I % 10 <> B) cout << I;
  }
  J = I++;
  while (J > 1) if (I % J = 0) {
    J = I++;
    if (I >= Q) break;
  } else J--;
}

Вроде не очень сильно отличается же?

[ALICAPAVLOVA]

Еще раз большое спасибо вам!