Решаем задачи Абрамян на Паскале. String17

String17. Дана строка. Преобразовать в ней все строчные буквы (как латинские, так и русские) в прописные.

Решение:

program String17;

var
  i:integer;
  S:string;

begin
 Write('S:');
 Readln (S);

 for i:=1 to Length(S) do
  begin
   if (ord(S[i]) in  [97..122]) then S[i]:=chr(ord(S[i])-32);
   if (ord(S[i]) in  [160..175]) then S[i]:=chr(ord(S[i])-32);
   if (ord(S[i]) in  [224..239]) then S[i]:=chr(ord(S[i])-80);
  end;
 Writeln(S);
end.

program String17;

var

i:integer;

S:string;

begin

Write('S:');

Readln (S);

for i:=1 to Length(S) do

begin

if (ord(S[i]) in [97..122]) then S[i]:=chr(ord(S[i])-32);

if (ord(S[i]) in [160..175]) then S[i]:=chr(ord(S[i])-32);

if (ord(S[i]) in [224..239]) then S[i]:=chr(ord(S[i])-80);

end;

Writeln(S);

end.

Другие задачи из раздела String можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. String17

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ