for

[stepan_xx]

Здравствуйте,Помогите составить программу, вычисляющую произведение n членов геометрической прогрессии.

[Arigato]

Алгоритм:

Начало
  Ввести (N);
  Член := 1;
  Для I от 2 до N делать
    Член := Член * K;
  Вывести (Член);
Конец.

[como]

Сообщение от Arigato

Алгоритм:

Начало
  Ввести (N);
  Член := 1;
  Для I от 2 до N делать
    Член := Член * K;
  Вывести (Член);
Конец.

Я бы переделал так:

Спросить(N);
Для I от 1 до N Делать
    Ввести(Член);
    Вывести(Член);
Кончить.