Ответы
Ответ дал:
0
program z1;
var k:integer;
s:string;
f:text;
begin
assign(f,'input.pas');
reset(f);
k:=0;
while not eof(f) do begin
readln(f,s); k:=k+1;end;
writeln('k=',k);
close(f);
end.
Связать логический файл f с физическим файлом input.pas; Открыть файл для чтения; Организовать считывание данных из файла построчно (readln(f,s), где s-переменная типа string), насчитывая на каждом шаге считывания значение переменной-счетчика k; Вывести на экран значение переменной-счетчика; Закрыть файл.
Вас заинтересует
1 год назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад