Найти произведение цифр натурального числа, больших В

[microlab]

Дано натуральное число. Найти произведение цифр данного числа, больших В. Верно ли то, что в данном числе есть цифра А(а и в вводятся с клавиатуры)
Помогите пожалуста

[microlab]

вверх вверх!!!

[Sm1Le]

А здесь что ? - Где тоя видел данное задание на этом форуме .....

Просто берешь число и делиш на 10 по модулю В остатке у тебя первая(правая) цифра, проверяешь и делишь дальше ...

[microlab]

ты мне с решениями скинь я к олимпиаде готовлючь а не могу найти решонные задачи на диф и мод

[Sm1Le]

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

ты мне с решениями скинь я к олимпиаде готовлючь а не могу найти решонные задачи на диф и мод

пардон гугл в помощь, не пожалуйста, ничего, Вынь да полож ... спс бб

[smileman]

microlab ничего ты устроился..это ты как собрался участвовать в олимпиаде,если не можешь написать такую простенькую программку,признайся,что тебе лень просто разбираться с ней,хочешь халявы-так и скажи!
Однако,понимаю,как студент студента,как лодырь лодыря,держи(без div и mod))):

USES CRT;
var a,b,c,d,x:integer;
begin
clrscr;
writeln('BBECTu cifru A');
readln(c);
writeln('BBECTu cifru B');
READLN(d);

writeln('BBECTu chislo');
readln(a);
readln(b);
IF  (a>d) and (b>d) then
    begin
        x:=a*b;
        writeln('multiplicate = ',x);
        if (a=c) or (b=c) then write('odna iz cifr est'' chislo A')
        else writeln('netu  A= ',c);
    end else writeln('cifri men''she chisla B');
  readkey
end.

[microlab]

спасибо большое