Question

ПОМОГИТЕ СРОЧНО ПОЖАЛУЙСТА С ЗАДАНИЕМ ПО PASCAL ABC !!! ЗАРАНЕЕ СПАСИБО !

Answer 1

Ответ:

Объяснение:

program StringsChange;

const

   ArraySize = 50;

   

var

   string1, string2, x : string;

   i, StringLength : integer;

procedure MyProcedure(var S : string);

   begin

       StringLength:=Length(S);

       for i:= 1 to StringLength do

           begin

               x:=copy(s,StringLength+1-i,1);

               string2:=string2+x;

               

           end;

   end;

   

begin

   StringLength :=0; string2 :='';

   Write('Input string: ');

   ReadLn(string1);

   MyProcedure(string1);

   Writeln(string2);

end.