Pascal Подсчёт строк в файле

[Mathian]

var k:integer;
s:string;
f:text;
Begin
	assign(f,'input.txt');
	reset(f);
	k:=0;
    while not eof(f) do begin
		readln(f,s);
		k:=k+1;
    end;
    writeln(k);
    close(f);
End.

Как видите, реализация очень простая, прочитав уроки по циклам и файлам Паскаль, Вы легко разберетесь в коде программы.

Автор: Zed