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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
