С помощью Паскаля:1.В магазине продается мастика в ящиках по 15 кг,17 кг,21 кг. Как...

Question

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

Answer 1

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.
Сейчас первую дорешаю

Comments

Не знаю, голова уже не варит, где то есть возведение переменной не больше 4-5 раз или же для каждой переменной возвести в квадрат и прибавить переменные k:=k+1; S;=s*sqr(a,b,c)+k;