Замена всех маленьких английских букв в строке соответствующими большими на Pascal
Замена всех маленьких английских букв в строке соответствующими большими...
var s: string := 'Hello, World!';
begin
var dist := Ord('a')-Ord('A');
for var i:=1 to s.Length do
if s[i] in ['a'..'z'] then
s[i] := Chr(Ord(s[i])-dist);
writeln(s);
end.
10.02.2015, 11:09 -
Категория: Статьи » Программирование » Pascal
