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

@madam12 · Регистрация: 06.06.2015

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

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

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.

@Puporev · 27.04.2016, 17:43

Pascal

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.

	27.04.2016, 17:43