Вывести количество чисел и их сумму в виде числительных - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Считывает текстовый файл. каждая строка которого изображает целое число, изображает слева и справа несколькими пробелами, и выводит количество этих чисел и их сумму в виде числительных т.е. словами
Program test;
Var  f:text;
      a,s,i: integer;
begin
assign(f,'test.txt');
reset(f);
while not eof(f) do
      begin
      readln(f,a);
      s:=s+a;
      n:=n+1;
      end;
writeln('Count: ',n);
writeln('Amount: ',s);
readln;
end.

Решение задачи: «Вывести количество чисел и их сумму в виде числительных»

textual
Листинг программы
Program test;
Var  f:text;
     a,s,n: integer;
begin
assign(f,'test.txt');
reset(f);
s:=0;
n:=0;
while not seekeof(f) do //последние пробелы читать не будет
 begin
  read(f,a); //читаем числа, пропуская пробелы
  s:=s+a;
  n:=n+1;
 end;
close(f);
writeln('Count: ',n);
writeln('Amount: ',s);
end.

Объяснение кода листинга программы

  1. Создаем текстовый файл с названием test.txt
  2. Открываем файл test.txt для чтения
  3. Инициализируем переменные s и n со значениями 0
  4. Начинаем цикл while, который будет выполняться до тех пор, пока не будет достигнут конец файла
  5. Внутри цикла считываем число из файла и добавляем его к переменной s
  6. Увеличиваем значение переменной n на 1
  7. Закрываем файл test.txt
  8. Выводим на экран количество чисел (переменная n)
  9. Выводим на экран сумму чисел (переменная s)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4 из 5
Похожие ответы