Водится послед. чисел. Признак конца последовательности 0. Найти произведение чисел, кратных наперед заданному числу.

Question

Водится послед. чисел. Признак конца последовательности 0. Найти произведение чисел, кратных наперед заданному числу.

Елена Кожанова Знаток (470), закрыт 13 лет назад

Дополнен 13 лет назад

Pascal

Answer 1

readln(x);
pr := 1;
n := 1;
repeat
readln(n);
if (n <> 0) and (n mod x = 0) then pr := pr * n;
until n=0;
writeln(pr);

Answer 2

блин.. .
я за компами сижу уже 20 лет.
пишу на пхп, джаве, дельфи, перле, 1Се.. .
я работал в техподдержке юзверей и даже понимал их проблемы.
я понимаю, о чем говорят бухгалтеры.. .
но я нихрена не понимаю, почему никто не хочет напрячь моск и, хотя бы, написать на чём должен быть код!
дурдом...