прграммирование в паскаль. оператоp case.
Задать случайным образом код символа - большой русской буквы. Напечатать соответсвующую ей маленькую букву. (Комментарий: ряд маленьких русских букв в таблице ASII прерывается а...п, р...я. Разность кодов больших и маленьких букв до "n"= 32, после 'р'=80.)

var    randomNumber : integer;begin    Randomize();    randomNumber := random(32)+192; // Получаем случайную большую букву    writeln('Большая буква: ', chr(randomNumber));    case chr(randomNumber) of        'А'..'П' : writeln('Маленькая буква: ', chr(randomNumber+32));        'Р'..'Я' : writeln('Маленькая буква: ', chr(randomNumber+80));    end;end.