Записать в файл последовательного доступа N натуральных чисел: a1, a2, ... аn (числа получить с помощью генератора случайных чисел

[Casillas1]

Записать в файл последовательного доступа N натуральных чисел: a1, a2, ... аn (числа получить с помощью генератора случайных чисел). Cформировать новый файл последовательного доступа, элементами которого являются числа a1, a1* a1, a1*a2*a3,...a1*a2*a3*...*an.

[ZX Spectrum-128]

Какая часть задания у вас вызывает недоумение?

[Casillas1]

та все впринцыпе просто не пойму что сделать нужно

[ZX Spectrum-128]

Первая часть задания

Var
 I,a,n:integer;
 F:text;
Begin
 Readln(n);
 Assign(f,'file.txt');
 Rewrite(f); // исправил
 For i:=1 to n do
  Begin
   A:=random(n)+1;
   Writeln(f,a);
  End;
 Close(f);
...

[Casillas1]

Сообщение от ZX Spectrum-128

Первая часть задания

Var
 I,a,n:integer;
 F:text;
Begin
 Readln(n);
 Assign(f,'file.txt');
 Reset(f);
 For i:=1 to n do
  Begin
   A:=random(n)+1;
   Writeln(f,a);
  End;
 Close(f);
...

а вторую можно пожалуйста?

[ZX Spectrum-128]

Правило по которому генерируется вторая последовательность озвучьте и будет вам вторая часть.

[Serge_Bliznykov]

Сообщение от ZX Spectrum-128

Правило по которому генерируется вторая прследовательность озвучьте и будет вам вторая часть.

Коллега, вторая последовательность генерируется из первой.
перемножением элементов в цикле.

Только хочу обратить ваше внимание на то, что факториал - это ОЧЕНЬ быстро растущая функция, поэтому целого типа данных, скорее всего, не хватит...

[Casillas1]

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

Коллега, вторая последовательность генерируется из первой.
перемножением элементов в цикле.

Только хочу обратить ваше внимание на то, что факториал - это ОЧЕНЬ быстро растущая функция, поэтому целого типа данных, скорее всего, не хватит...

можете вторую часть сделать?

[ZX Spectrum-128]

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

Коллега, вторая последовательность генерируется из первой.
перемножением элементов в цикле.

Только хочу обратить ваше внимание на то, что факториал - это ОЧЕНЬ быстро растущая функция, поэтому целого типа данных, скорее всего, не хватит...

Сергей, спасибо, только это я тс хотел дать возможность хоть что-то сделать самому.

[Serge_Bliznykov]

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

можете вторую часть сделать?

Теоретически - могу. Практически - вряд ли..
Но я же пост написал, чтобы помочь ZX Spectrum-128, вроде бы он имеет желание и возможность осчастливить Вас!

А Вы не хотите ему рассказать, как формируется вторая последовательность чисел!!
Рассказали бы, пример с конкретными числами привели, уже, глядишь, и получили бы готовый код..


ZX Spectrum-128, угу. понимаю Вас!