В заданной строке посчитать количество слов МАМА

@Salov7a · Регистрация: 25.04.2011

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

1.В заданной строке посчитать количество слов МАМА!!!

Заранее всем спасибо!!!

)))

@S9 · 02.06.2011, 16:05

Сообщение от Salov7a

1.В заданной строке посчитать количество слов МАМА!!!

Думаю вам надо слово "MAMA" а не "MAMA!!!".

Pascal

{1.В заданной строке посчитать количество слов МАМА!!!}
Program My;
 
Var
    s:String;
    i,k:Integer;
Begin
    k:=0;
    ReadLn(s);
    For i:=1 To Length(s) Do
        If (s[i] = 'M') And (s[i+1] = 'A') And (s[i+2] = 'M') And (s[i+3] = 'A'){Набрано на английской раскладке, т.к. русские буквы в TP7.0 не вводятся}
            Then Inc(k);
        WriteLn('Kol = ',k);
    ReadLn;
End.

@Salov7a 0 / 0 / 0 Регистрация: 25.04.2011 Сообщений: 16
		1
	В заданной строке посчитать количество слов МАМА 02.06.2011, 13:00. Показов 2455. Ответов 1 Метки нет (Все метки) 1.В заданной строке посчитать количество слов МАМА!!! Заранее всем спасибо!!!))) 0

	02.06.2011, 16:05

Опции темы

В заданной строке посчитать количество слов МАМА

Решение