Срочно! Составить программу обмена букв в слове "машина" на "анишам" на языке паскаль

1

Ответы и объяснения

2014-02-17T17:03:51+04:00
Var s:string;
     i:integer;
     tmp:char;
begin
  s:='машина';
  for i:=1 to 3 do
   begin
    tmp:=s[i];
    s[i]:=s[7-i];
    s[7-i]:=tmp;
   end;
  writeln (s);
end.