Дан текст, в котором записано одно из стихотворений А.С. Пушкина. Сколько раз в каждой строке встречается данный символ?

@ruskhas · Регистрация: 19.05.2013

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

@CodeR · 31.05.2013, 08:14

Pascal

Var f:text;
    s:string;
    i,j,k:byte;
    c:char;
Begin
    Assign(f,'in.txt');Reset(f);//файл in.txt должен быть создан в папке с прогой и заполнен
    write('Символ: ');readln(c);
    While not Eof(f) do
    Begin
      inc(i);k:=0;
      readln(f,s);
      For j:=1 to Length(s) do
       if s[j]=c then inc(k);
      writeln('В ',i,' строке символ ',c,' встречается = ',k);
    End;
    Close(f);
    readln;
End.

@ruskhas 1 / 1 / 0 Регистрация: 19.05.2013 Сообщений: 34
		1
	Дан текст, в котором записано одно из стихотворений А.С. Пушкина. Сколько раз в каждой строке встречается данный символ? 30.05.2013, 23:30. Показов 2290. Ответов 1 Метки нет (Все метки) Дан текст, в котором записано одно из стихотворений А.С. Пушкина. Сколько раз в каждой строке встречается данный символ? 0

	31.05.2013, 08:14

Дан текст, в котором записано одно из стихотворений А.С. Пушкина. Сколько раз в каждой строке встречается данный символ?

Решение