Var str: string; i, n: integer; begin readln(str); if str: ='q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p', 'a', 's', 'd', 'f', 'g', 'h', 'j', 'k', 'l', 'z', 'x', 'c', 'v', 'b', 'n', 'm'; for i: = 1 to n do writeln(chr(ord(str[i])+32)); else writeln(chr(ord(str[i])-32)); end. : написать функцию, возвращающую преобразованную к верхнему регистру строку в качестве аргумента(сделать для заглавных и строчных)с таблицей "аски" например ввод: abcz вывод: abcz

Волвлчлчлч    2   03.09.2019 11:10    0