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

197

286

Посмотреть ответы 2

Ответы на вопрос:

Yrikrylko

Информатика

4,8(40 оценок)

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.

Nosochekxnncnnc

Информатика

4,6(16 оценок)

Var s: string; i: integer; begin writeln('введи строку'); readln(s); for i: = 1 to length(s) do case s[i] of 'a': begin s[i]: ='e'; write(i,' ') end; 'a': begin s[i]: ='e'; write(i,' ') end; 'i': s[i]: ='g'; end; insert('+',s,trunc(length(s)/2)); writeln; writeln(s); end.