Question

Работа в Pascal Дан текстовый файл, содержащий целые числа 1) Найти количество шестерок в каждой строке 2) Количество строк 3) Среднее количество шестерок

Answer 1

Ответ:

Прости ну надо больше обьяснений((

Answer 2

Конечно, я могу помочь вам написать программу на Pascal для решения этой задачи. Вот пример кода, который выполняет указанные вами действия:

pascalCopy code
program CountSixesInFile;

var
  inputFile: text;
  fileName: string;
  lineNumber, totalLines, totalSixes: integer;
  line: string;
  sumSixes: real;

begin
  totalLines := 0;
  totalSixes := 0;
  sumSixes := 0.0;

  // Введите имя файла
  writeln('Введите имя файла:');
  readln(fileName);

  // Открыть файл для чтения
  assign(inputFile, fileName);
  reset(inputFile);

  // Читать строки из файла
  while not eof(inputFile) do
  begin
    readln(inputFile, line);
    totalLines := totalLines + 1;
    lineNumber := 0;

    // Подсчет количества шестерок в строке
    for character in line do
    begin
      if character = '6' then
        lineNumber := lineNumber + 1;
    end;

    totalSixes := totalSixes + lineNumber;
    sumSixes := sumSixes + lineNumber;
    writeln('Количество шестерок в строке ', totalLines, ': ', lineNumber);
  end;

  // Закрыть файл
  close(inputFile);

  // Вывод результатов
  writeln('Общее количество строк: ', totalLines);
  writeln('Среднее количество шестерок: ', sumSixes / totalLines : 2 : 2);
end.

Программа открывает указанный текстовый файл, считывает каждую строку и подсчитывает количество шестерок в каждой строке. Затем она выводит количество шестерок в каждой строке, общее количество строк и среднее количество шестерок на каждой строке.

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