Определить сумму членов последовательности, начиная с заданного номера

Влад Богорад

Разработать программу для заполнения типизированного файла числами арифметической последовательности с первым элементом равным 3, и разностью 1.5, число компонент выбирается по желанию пользователя. Определить сумму членов последовательности, начиная с заданного номера.
1 ответ

Влад Богорад

uses crt;
var i,n,l: integer;
    j,k,sum: real;
    f: file of real;
    num: string;
begin
 clrscr;
 j:=1.5;
 k:=3;
 num:='fileofsum';
 assign(f,num);
 rewrite(f);
 write('Число компонент: ');
 readln(n);
 for i:=1 to n do
  begin
   write(f,k);
   k:=k+j;
  end;
 reset(f);
 write('Суммировать, начиная с #: ');
 readln(l);
 for i:=1 to n do
  begin
   read(f,k);
   write(k,' ');
   if i>=l then
    sum:=sum+k;
  end;
  writeln;
  writeln('Сумма = ',sum);
  close(f);
 readln;
end.