1. Составить программку ,которая определяет ,сколько раз в предложении встречается слово

1. Составить программку ,которая определяет ,сколько раз в предложении встречается слово "дом".
2. Составить программку ,вычисляющую длину самого краткого слова в предложении из трёх слов ,разделённых пробелами.
Паскаль

Задать свой вопрос
Cytkov Mihail
"дом" считается словом, когда справа и слева любые знаки, кроме букв российского алфавита?
Сережа Зобенько
если через пробел ,то да.
Степан Бодябин
если написано семейный, здесь слово дом считать?
Alina Lanshhikova
да ,и я уточнил что слово может находиться так: fhdfksbдомbjsdhfbhs и дом и ароараоыаврыДОМорраврв.
1 ответ
Код PascalABC.NET 3.2:


Var S:string;
i,k:integer;
Begin
Write('Введите строчку: ');ReadLn(S);
LowerCase(S);
k:=0;
For i:= 1 to S.Length-2 do
    if S[i] = 'д' then
       if S[i+1] = 'о' then
          if S[i+2] = 'м' then
             k:=k+1;
WriteLn(k)
End.



Var
S:string;
i,d1,d2,d3:integer;
Begin
WriteLn('Введите строчку:');
ReadLn(S);
i:=0;
Repeat
i+=1
Until S[i] = ' ';
d1:=i-1;
Repeat
i+=1
Until S[i] = ' ';
d2:=i-d1-2;
Repeat
i+=1
Until i = S.Length;
d3:=i-d2-d1-2;
if d3 lt; d1 then d1:=d3;
if d2 lt; d1 then d1:=d2;
WriteLn(d1)
End.

Лидия Словачевская
Спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт