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

String10. Дана строка. Вывести строку, содержащую те же символы, но расположенные в обратном порядке.

Решение:

program String10;
var
  i:integer;

  S,S2:string;

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

 for i:=1 to Length(S) do S2:=S2+S[Length(S)-i+1];

 Writeln(S2);
end.

program String10;

var

i:integer;

S,S2:string;

begin

Write('S:');

Readln (S);

for i:=1 to Length(S) do S2:=S2+S[Length(S)-i+1];

Writeln(S2);

end.

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

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

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

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

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

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