Изменить регистр символов текстовой строки

@Maria_Добрая · Регистрация: 17.10.2010

Author24 — интернет-сервис помощи студентам

Изменить регистр символов текстовой строки на противоположный

@PaniCa. · 25.11.2012, 20:30

Pascal

var
  s, p: string;
  i, j: integer;
 
begin
  readln(S);
  for j := 1 to length(S) do
    for i := 65 to 122 do
      if (copy(S, j, 1) = chr(i)) and (i < 91) then p := p + chr(i + 32) else if
      (copy(S, j, 1) = chr(i)) then p := p + chr(i - 32);
  writeln(p);
end.

@Maria_Добрая 0 / 0 / 0 Регистрация: 17.10.2010 Сообщений: 63
		1
	Изменить регистр символов текстовой строки 25.11.2012, 20:03. Показов 2170. Ответов 1 Метки нет (Все метки) Изменить регистр символов текстовой строки на противоположный 0

	25.11.2012, 20:30

Изменить регистр символов текстовой строки

Решение