Прграммирование в паскаль. операто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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
