Ответы
Ответ дал:
2
Ответ:
var x,s:string;
f:Text;
path:string = 'f:\file.txt';
i, counter:integer;
begin
write('Какой символ искать: '); readln(s);
x:='';
assign(f, path);
reset(f);
while not eof(f) do begin
while not eoln(f) do begin
readln(f, x);
for i:=1 to Length(x) do begin
if x[i] = s then inc(counter)
end;
end;
end;
write('Количество таких символов в файле: ', counter);
end.
Litlle228:
переменная х-это строка в файле? а переменная s-это символ в строке?
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад