Определить количество строк в текстовом файле, в которых есть символ «!»

@Sc00by_Engineer · Регистрация: 08.11.2015

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

Гайс, хелп плз.....)
Определить количество строк в текстовом файле, в которых есть символ «!».

@ZX Spectrum-128 · 15.11.2015, 20:42

Pascal

var
  s: string;
  f: text;
  ks: integer;
 
begin
  assign(f, '1.txt');
  reset(f);
  ks := 0;
  while not eof(f) do
  begin
    readln(f, s);
    if pos('!', s) <> 0 then
      inc(ks);
  end;
  writeln('! =  ', ks);    
  close(f);
  readln;
end.

@Sc00by_Engineer 0 / 0 / 0 Регистрация: 08.11.2015 Сообщений: 2
		1
	Определить количество строк в текстовом файле, в которых есть символ «!» 15.11.2015, 14:47. Показов 2004. Ответов 1 Метки нет (Все метки) Гайс, хелп плз.....) Определить количество строк в текстовом файле, в которых есть символ «!». 0

	15.11.2015, 20:42

Опции темы

Определить количество строк в текстовом файле, в которых есть символ «!»

Решение