Создать в редакторе текстовый файл, внести в него 10 строк произвольного текста.

@vadimkop93 · Регистрация: 07.03.2012

Author24 — интернет-сервис помощи студентам

Создать в редакторе текстовый файл, внести в него 10 строк произвольного текста. Разработать программу, которая подсчитывает количество цифр, встречающихся в каждой строке, и записывает полученные значения в другой файл, каждое значение с новой строки.

@qnak · 14.03.2012, 14:05

Pascal

var s:string; num:set of char;
     f,fo:text;
begin num:=['0'..'9']
      assign(f, 'H:\inp1.txt');
  assign(fo, 'H:\out1.txt');
  rewrite(fo); reset(f);
   while not eof(f) do begin
readln(f,s); k:=0; for i:=1 to length(s) do if s[i] in num then k:=k+1;
writeln(fo,k);
    close(f);
    close(fo);
end.

@vadimkop93 0 / 0 / 0 Регистрация: 07.03.2012 Сообщений: 21
		1
	Создать в редакторе текстовый файл, внести в него 10 строк произвольного текста. 14.03.2012, 10:43. Показов 1939. Ответов 1 Метки нет (Все метки) Создать в редакторе текстовый файл, внести в него 10 строк произвольного текста. Разработать программу, которая подсчитывает количество цифр, встречающихся в каждой строке, и записывает полученные значения в другой файл, каждое значение с новой строки. 0

	14.03.2012, 14:05

Создать в редакторе текстовый файл, внести в него 10 строк произвольного текста.

Решение