Дано текстовый файл, вывести все строчки, что начинаются на латинскую a

@Teteria · Регистрация: 08.06.2016

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

Здравствуйте, вот, нужна помощь в написании программы "Дано текстовый файл, вывести все строчки, что начинаются на латинскую a"

@ezhukov67 · 08.06.2016, 22:47

Pascal

uses  Crt;
var   a:text;
      s:string;
begin
      ClrScr;
      Assign(a,'ABC.txt');
      Reset(a);
      While not Eof(a) do
       begin
         Readln(a,s);
         if s[1]='a'
          then Writeln(s);
       end;
      Close(a);
      ReadKey;
end.

@Teteria 0 / 0 / 0 Регистрация: 08.06.2016 Сообщений: 1
		1
	Дано текстовый файл, вывести все строчки, что начинаются на латинскую a 08.06.2016, 14:44. Показов 1176. Ответов 1 Метки нет (Все метки) Здравствуйте, вот, нужна помощь в написании программы "Дано текстовый файл, вывести все строчки, что начинаются на латинскую a" 0

	08.06.2016, 22:47

Опции темы

Дано текстовый файл, вывести все строчки, что начинаются на латинскую a

Решение