Файлы. Вычислить произведение чисел, порядковые номера которых кратны пяти

16.06.2012, 14:54. **Показов** 1320. **Ответов** 1

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

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

@[WRG] · 17.06.2012, 11:13

числа в исходном файле дорлжны располагаться по одному в строке.

Pascal

program trololo;
 
uses crt;
 
var
  f1: text;
  path_to_file: string;
  i,result,tmp: integer;
  
begin
  write('Введите полный путь до файла - > ');
  readln(path_to_file);
  assign(f1,path_to_file); reset(f1);
  i:=1; result:=1;
  while not eof(f1) do
    begin
      readln(f1,tmp);
      if i mod 5 <> 0 then
        inc(i)
      else
        begin
          result:=result * tmp;
          inc(i);
        end;
    end;
  close(f1);
  append(f1);
  writeln(f1);
  writeln(f1,result);
  close(f1);
  writeln('Completed');
  readln;
end.

shokoladka2010
		1
	Файлы. Вычислить произведение чисел, порядковые номера которых кратны пяти 16.06.2012, 14:54. Показов 1320. Ответов 1 Метки нет (Все метки) В текстовом файле содержится последовательность действительных чисел. Вычислить произведение чисел, порядковые номера которых кратны пяти. Результат дописать в конец исходного файла. Имя файла вводится с клавиатуры.

Опции темы

Файлы. Вычислить произведение чисел, порядковые номера которых кратны пяти

Решение