История изменений
Исправление bormant, (текущая версия) :
А что не utf8? Зачем на DOS-то ориентироваться?
ТС будет сдавать в DosBox под TP, там cp866 или другая однобайтная, какую настроишь. Нужно показывать, во что превратится в этом случае UTF-8 вывод
Write('Введите количество повторов: ');
Другой момент: часть учебных задач завязана на обработку строк в однобайтной кодировке. Можно и для UTF-8 сделать, но потом, по мере обретения навыков, а по первости это никак не поможет, «в лоб» не получится штатное:
const vovels=['а', 'о', 'и', 'е', 'ё', 'э', 'ы', 'у', 'ю', 'я'];
for i:=1 to Length(s) do Inc(cnt, Ord(s[i] in vovels));
Исправление bormant, :
А что не utf8? Зачем на DOS-то ориентироваться?
ТС будет сдавать в DosBox под TP. Нужно показывать, во что превратится в этом случае UTF-8 вывод
Write('Введите количество повторов: ');
Другой момент: часть учебных задач завязана на обработку строк в однобайтной кодировке. Можно и для UTF-8 сделать, но потом, по мере обретения навыков, а по первости это никак не поможет, «в лоб» не получится штатное:
const vovels=['а', 'о', 'и', 'е', 'ё', 'э', 'ы', 'у', 'ю', 'я'];
for i:=1 to Length(s) do Inc(cnt, Ord(s[i] in vovels));
Исходная версия bormant, :
А что не utf8? Зачем на DOS-то ориентироваться?
ТС будет сдавать в DosBox под TP. Нужно показывать, во что превратится в этом случае UTF-8 вывод
Write('Введите количество повторов: ');
Другой момент: часть учебных задач завязана на обработку строк в однобайтной кодировке. Можно и для UTF-8 сделать, но потом, по мере обретения навыков, а по первости это никак не поможет, «в лоб» не получится штатное:
const vovels=['а', 'о', 'и', 'е', 'ё', 'э', 'ы', 'у', 'ю', 'я'];
for i:=1 to Length(s) do Inc(cnt, s[i] in vovels);