Прграммирование в паскаль. оператоp case. задать случайным образом код символа - большой буквы. напечатать соответсвующую ей маленькую букву. (комментарий: ряд маленьких букв в таблице asii прерывается , . разность кодов больших и маленьких букв до "n"= 32, после 'р'=80.)
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.