СРООЧНОО! Напишите код в турбо паскальДан текст, в котором записано одно из стихотворений А.С. Пушкина. Сколько раз встречаются гласные буквы?
СРООЧНОО! Напишите код в турбо паскаль
Дан текст, в котором записано одно из стихотворений
А.С. Пушкина. Сколько раз встречаются гласные буквы?
Гость
Ответ(ы) на вопрос:
ГостьЭто PascalABC, но на должно сработать и на турбе)
var
s: string;
i: longint;
j: byte;
begin
writeln('Конец стиха - строка пустая');
repeat
for j := 1 to length(s) do
if (lowcase(s[j]) in ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я']) then
i := i + 1;
readln(s);
until s = '';
writeln(i, ' гласных букв');
end.
Не нашли ответ?
Похожие вопросы