Сколько раз в файле встречается буква "a"

@Pasta · Регистрация: 07.06.2012

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

Прочитать файл TWO определить, сколько раз в нем встречается буква <<a>>
Составить блок-схему программы.

@CodeR · 22.06.2012, 15:42

Файл предварительно должен быть создан...

Pascal

Var f:text;
    i,k:integer;
    s:string;
Begin
    Assign(f,'two.txt');Reset(f);
    k:=0;
    While not Eof(f) do
     Begin
      readln(f,s);
      For i:=1 to Length(s) do
       if s[i]='а' then inc(k);
     End;
    writeln('Буква "а" встречается: ',k,' раз');
    Close(f);
    readln;
End.

@Pasta 0 / 0 / 0 Регистрация: 07.06.2012 Сообщений: 3
		1
	Сколько раз в файле встречается буква "a" 22.06.2012, 15:22. Показов 2093. Ответов 1 Метки нет (Все метки) Прочитать файл TWO определить, сколько раз в нем встречается буква <<a>> Составить блок-схему программы. 0

Опции темы

Сколько раз в файле встречается буква "a"

Решение