var
A, B, c, x, p1, p2 :double;
const
PI = 3.1415926;
begin
readln(A, B, c, x);
if exp(c+power(x,0.2)) <> 0 then
p2 := 32.7*power(A,3)*x/exp(c+power(x,0.2))
else begin
writeln('Деление на 0 во второй дроби');
halt;
end;
if (abs(0.65 * A * PI * Power(x,3))<> 2*PI) then
p1 := tan(0.65 * A * PI * Power(x,3))
else begin
writeln('Аргумент для тангенса неверен');
halt;
end;
if (p1 < 0) then begin
writeln('Отрицательное подкоренное выражение');
halt;
end
else
if(p1 = 0) then begin
writeln('Деление на 0 в первой дроби');
halt;
end;
writeln('Результат: ', (B * cos(x)*cos(x))/sqrt(p1)+p2);
end.
Объяснение:
--- Python 3.8.3 ---
n = int(input('n: \n'))
counter = 0
for coin1 in range(0, n+ 1):
for coin2 in range(0, (n // 2) + 1):
for coin5 in range(0, (n // 5) + 1):
for coin10 in range(0, (n // 10) + 1):
if coin1 * 1 + coin2 * 2 + coin5 * 5 + coin10 * 10 == n: counter += 1
print(counter)
для n в пределах 100-200 считает вроде правильно, и достаточно быстро. Что до больших значений n, мне не хватило терпения. Ненормально это, успеть попить чаю в ожидании конца работы программы в 8 строк.
При желании можно использовать как стресс-тест ЦПУ
