BrdGuest
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Program p1;
Var
Str: String;
Ch: Char;
StrLength: Integer;
Begin
Write('Vvedite stroku: ');
ReadLn(Str);
Ch := Str[1];
Str[1] := Str[2];
Str[2] := Ch;
StrLength := Length(Str);
Ch := Str[StrLength];
Str[StrLength] := Str[StrLength - 1];
Str[StrLength - 1] := Ch;
WriteLn('Resultat: "', Str, '"');
ReadLn;
End. |
Всего записей: 43 | Зарегистр. 07-12-2007 | Отправлено: 05:27 11-12-2007 | Исправлено: BrdGuest, 07:26 11-12-2007 |
|
