Var a, p:real; n, i:integer; begin write('a = '); readln(a); write('n = '); readln(n); p := a; for i := 1 to n do p := p * (a - i * n); writeln('p = ', p); readln; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
