В текстовом файле в строке с заданным номером k>0 подсчитать количество цифр - Pascal

Формулировка задачи:

В текстовом редакторе создать файл из нескольких строк символов. Вывести его содержимое на экран. В строке с заданным номером k>0 подсчитать количество цифр. Полученное значение записать в конец файла и вывести содержимое измененного файла на экран.

Код к задаче: «В текстовом файле в строке с заданным номером k>0 подсчитать количество цифр - Pascal»

textual
var f:text;
    s:string;
    i,k,n:integer;
begin
repeat
write('Введите номер строки k>0 k=');
readln(k);
until k>0;
assign(f,'text.txt');//файл в папке с программой
reset(f);
i:=0;
while not eof(f)and(i<>k)do
 begin
  readln(f,s);
  i:=i+1;
 end;
close(f);
if i<k then
 begin
  write('В файле нет ',k,' строк');
  exit;
 end;
n:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then n:=n+1;
append(f);
writeln(f,'');
writeln(f,n);
reset(f);
while not eof(f) do
 begin
  readln(f,s);
  writeln(s);
 end;
close(f);
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

6   голосов, оценка 4.500 из 5


СОХРАНИТЬ ССЫЛКУ