Записать в файл последовательного доступа N натуральных чисел: а1 а2,...,ai,...,аn .

@dbiu5 · Регистрация: 22.01.2013

Author24 — интернет-сервис помощи студентам

Записать в файл последовательного доступа N натуральных чисел: а1 а2,...,ai,...,аn . Сформировать новый файл последовательного доступа, элементами которого являются числа а1, а1*а2, а1*а2*а3,...., а1:а2,...аi...аn.

@CodeR · 23.01.2013, 08:27

Pascal

Var f,g:file of longint;
    i,n:byte;
    pr,t:longint;
Begin
    write('Введите N: ');readln(n);
    Assign(f,'in.dat');Rewrite(f);
    Assign(g,'out.dat');Rewrite(g);
    pr:=1;
    For i:=1 to n do
    Begin
      write('a',i,' = ');
      readln(t);
      write(f,t);
      pr:=pr*t;
      write(g,pr)
    End;
    Reset(g);
    writeln('Полученный файл');
    For i:=1 to n do
    Begin
      read(g,t);
      write(t,' ');
    End;
    Close(f);Close(g);
    readln;
End.

@dbiu5 0 / 0 / 0 Регистрация: 22.01.2013 Сообщений: 4
		1
	Записать в файл последовательного доступа N натуральных чисел: а1 а2,...,ai,...,аn . 22.01.2013, 18:59. Показов 1615. Ответов 1 Метки нет (Все метки) Записать в файл последовательного доступа N натуральных чисел: а1 а2,...,ai,...,аn . Сформировать новый файл последовательного доступа, элементами которого являются числа а1, а1а2, а1а2*а3,...., а1:а2,...аi...аn. 0

	23.01.2013, 08:27

Записать в файл последовательного доступа N натуральных чисел: а1 а2,...,ai,...,аn .

Решение