в магазине продается мастика в ящиках по 15 кг,17 кг,21 кг. как купить ровно 185 кг мастики, не вскрывая ящики? сколькими можно это сделать? 2.ввести натуральное число n и вывести все натуральные числа,не превосходящие n и делящиеся на каждую из своих цифр. пример: введите n: 15 1 2 3 4 5 6 7 8 9 11 12 15.

2) Program asd;
USES crt;
Var n,i,t,p:integer;
BEGIN
Clrscr;
readln(n);
for i:=1 to n do
begin
t:=i;
p:=1;
repeat
p:=p*(t mod 10);
t:=t div 10;
until t=0;
if (p<>0)and(i mod p=0)
then
write(i,' ');
end;
Readln;
END.
Сейчас первую дорешаю