function count(var f:text):integer;
const nulelem='0'; {??? )) что для вас нулевой элем}
var k:integer; c:char;
begin
k:=0;
while not eof(f) do
begin
find:=true;
while not eoln(f)and find do
begin
read(f,c);
if c=nulelem then begin k:=k+1; find:=false end
end;
readln(f)
end;
count:=k
end;
(Pascal)кол-во строк не содержащих ни одного нуливого элемента
найти кол-во строк не содержащих ни одного нуливого элемента. Оформить в виде функции.:confused:
Pascal
Pascal
а как звучит задание в оригинале?
а не проще тогда использовать для этих целей функцию pos???
в стандарте паскаля такой ф-и нет
Borland Pascal version 7.0 или Turbo Pascal version 7.0 help->Procedures and functions->Functions and procedures M-P-> Pos Func Searches for a substring in a string.
в общем нужно уточнять задание ))