Автор: Bronislav

Bronislav — Fri, 22 Jun 2018 13:43:35 +0000

program string_10; //PascalABC.NET

begin
  var str := 'Hello Pascal!';
  
  for var i := 1 to str.Length div 2 do 
    swap(str[i], str[str.Length - i + 1]);
    
  str.Println;
end.

program string_10; //PascalABC.NET

begin

var str := 'Hello Pascal!';

for var i := 1 to str.Length div 2 do

swap(str[i], str[str.Length - i + 1]);

str.Println;

end.

Комментарии: Решаем задачи Абрамян на Паскале. String10

Автор: Bronislav