Регистрация
Челoвечeк
04.05.2020 04:32
Информатика
Есть ответ 👍

Pascal. записать в файл последовательность натуральных чисел: а1, а2, аn (числа получить с генератора случайных чисел). сформировать новый файл, элементами которого являются числа а1, а1 * а2, а1 * а2 * а3, а1 * а2 * а3 * * аn.

101
473
Посмотреть ответы 2

Ответы на вопрос:

Dani00480
Dani00480
4,5(74 оценок)

ответ:

объяснение:

const

  max_elements = 1000;

  a = 1;

  b = 15;

  first_file_name = '1.txt';

  second_file_name = '2.txt';

var

  i, j, n, r: integer;

  p: real;

  ar: array[1..max_elements] of integer;

  f1, f2: text;

begin

  randomize;

  writeln('input n = ');

  readln(n);

  for i: =1 to n do begin

    ar[i]: =random(b-a+1)+a;

  end;

  assign(f1, first_file_name);

  rewrite(f1);

  for i: =1 to n do begin

    writeln(f1, ar[i]);

  end;

  close(f1);

  assign(f2, second_file_name);

  rewrite(f2);

  for i: =1 to n do begin

    p: =1;

    for j: =1 to i do

      p: =p*ar[j];

    writeln(f2, p: 0: 0);

  end;

  close(f2);

  readln;

end.

taotourp00p0i
taotourp00p0i
4,4(10 оценок)

Записываем действия с конца, заменяя противоположными

Популярно: Информатика