Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Дан текстовый файл. Подсчитать количество строк в данном файле. Результат вывести на форму.

Ответ оставил Гость

program test;

var

source: text;
name: string;
line: string;
count: integer;

begin

write(write name of file (for example 1.txt): );
read(name);

assign(source, name);
reset(source);

count := 0;

while not eof(source) do
begin

readln(source, line);

count := count + 1;

end;

writeln(Lines count: , count);

close(source);

end.