profile
[/banner_gorizont_adaptive]
Размещено 3 года назад по предмету Информатика от Слава1291

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

  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 < d1 then d1:=d3;
    if d2 < d1 then d1:=d2;
    WriteLn(d1)
    End.

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 4 года назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.