Здравствуйте, вообщем нужно сделать задачу:
В текстовом файле содержатся цифры (без пробелов), нужно найти количество чисел в каждой строке и посчитать сумму чисел каждой строки. Проблема во втором пункте, никак не получается посчитать сумму чисел-жалуется на типы файлов... вот то что сделал:
program lolo;
uses crt;
var
fil:text;
s:string;
begin clrscr;
assign(fil,'lol.txt');
reset(fil);
while not eof(fil) do begin
readln (fil,s);
writeln ('Количество чисел в строке=',length(s));
end;
readln;
close(fil);
end.
acc := 0;
for i := 1 to length(s) do
acc := acc + ord(s[i]) - 48;