Ошибка в программе - PascalABC.NET

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

Дали на задание программу с ошибкой.....где находится ошибка?

var
   f:file of char;
   c:char;
   sum,n:word;
begin
   assign(f,'C:\Users\User\Desktop\nums.txt');
   reset(f);
   sum:=0;
   while not eof(f) do begin
      read(f,c);
      if c<> '' then begin
         val(c,n);
         sum:=sum+n
      end
      else begin
         write(sum:5);
         sum:=0;
      end;
   end;
   writeln;
end.

Решение задачи: «Ошибка в программе»

textual
                            Листинг программы 
                        

                            var err : integer;
// ...
val(c, n, err);
                        

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

10 голосов , оценка 4 из 5

Похожие ответы