Не распознаёт коды русских букв. Задача String6. Дан символ C ...если русскую — вывести строку «rus».

Куда делись русские буквы?

var i:integer; begin for i:=32 to 255 do write(i,’ ‘,chr(i),’ '); end.

Они не русские там. Print(Ord(‘А’)) - выведите код первой русской и посмотрите

 Институт математики, механики и компьютерных наук ЮФУ, 2005–2021
Администрация форума: В.Н. Брагилевский, С.С. Михалкович, А.М. Пеленицын
Yandex.Metrica