Экономика
Гость
23.05.2020
Паскаль, срочно

С клавиатуры вводится текст. подсчитать и вывести на печать количество слов текста,начинающихся сгласной.
Ответы:
const

    g = ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];



var

    s: string;

    k, i: integer;



begin

    readln(s);

    s := ' ' + LowerCase(Trim(s));

    

    k := 0;

    for i := 1 to length(s) do

        if (s[i] = ' ') and not (s[i + 1] in g) then

            k := k + 1;

    

    writeln(k);

end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос Паскаль, срочно

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