Question

Напишите программу которая подсчитает количество слогов жи в предложении
Pascal помогите пожалуйста!!!​

Answer 1

Ответ:

program CountSyllables;

var

sentence: string;

syllableCount: integer;

function CountSyllablesInWord(word: string): integer;

var

i, syllables: integer;

vowels: set of char;

begin

syllables := 0;

vowels := ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я', 'a', 'e', 'i', 'o', 'u', 'y'];

for i := 1 to Length(word) do

begin

if CharInSet(word[i], vowels) then

begin

if (i = 1) or not CharInSet(word[i - 1], vowels) then

Inc(syllables);

end;

end;

CountSyllablesInWord := syllables;

end;

begin

// Ввод предложения

Write('Введите предложение: ');

ReadLn(sentence);

syllableCount := 0;

// Разбиваем предложение на слова и считаем слоги в каждом слове

for sentenceWord in sentence do

Inc(syllableCount, CountSyllablesInWord(sentenceWord));

// Выводим результат

WriteLn('Количество слогов в предложении: ', syllableCount);

end.