Задан текстовый файл. Подчитать количеств и напечатать строки файла которые содержат только одно слово

@Vladislavvvvvvv · Регистрация: 26.11.2018

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

@ZX Spectrum-128 · 30.11.2018, 08:28

Pascal

var
  s: string;
  f: text;
  k: integer;
 
begin
  k := 0;
  assign(f, 'in.txt');
  reset(f);
  while not (Eof(f)) do
  begin
    readln(f, s);
    if pos(' ', s) = 0 then 
    begin
      writeln(s);
      inc(k);
    end;
  end;
  close(f);
  writeln(k);
end.

@Vladislavvvvvvv 0 / 0 / 0 Регистрация: 26.11.2018 Сообщений: 10
		1
	Задан текстовый файл. Подчитать количеств и напечатать строки файла которые содержат только одно слово 30.11.2018, 00:16. Показов 996. Ответов 1 Метки нет (Все метки) Задан текстовый файл. Подчитать количеств и напечатать строки файла которые содержат только одно слово 0

Опции темы