Дан текстовый файл. Вывести количество содержащихся в нем символов и строк

[Настенька..Блонди]

Дан текстовый файл. Вывести количество содержащихся в нем символов и строк (маркеры концов строк EOLN и конца файла EOF при подсчете количества символов не учитывать).




-------------В Паскале-------------

[Arigato]

Настенька..Блонди, готов решить Вашу задачку всего за 300р.

[bura]

Вроде бы правильно работает программа:

program prog1;
uses crt;
var
 F: Text;
 namefile: string[50];
 tmp: string[100];
 len: integer;
 countstr, countch: integer;
begin
 clrscr;
 write('Imya faila: ');
 readln(namefile);
 assign(F, namefile);
 reset(F);
 countstr:=0;
 countch:=0;
 while not Eof(F) do
  begin
   readln(F, tmp);
   countstr:=countstr+1;
   countch:=countch+length(tmp);
  end;
 close(F);
 writeln('Kol-vo strok v faile: ', countstr);
 writeln('Kol-vo simvolov: '  , countch);
 readln;
end.

[Primitiv]

Было бы на С++ я бы помог. 300 р. ты угараешь! за такую задачу на 5 мин )))

[Arigato]

300 р. ты угараешь! за такую задачу на 5 мин

Надо ценить свой труд.