Var str: string; i, n: integer; begin readln(str); - вопрос №7754492 от ponomarjovakse 04.03.2023 04:33

Question

Информатика: 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

ponomarjovakse · Answer

Function uppercase(str: string): string;
var
i: integer;
begin
Result:='';
for i:=1 to length(str) do
if (str[i]>='a') and (str[i]<='z') then
Result:=Result+Chr(Ord(str[i])-32) else
Result:=Result+str[i];
end;