• ана строка содержащая любые символы кроме русских букв.
    Написать процедуру, которая заменит все малые латинские буквы на следующие по алфавиту. а "z" замени на "a".
    Например из строки: "a bc 83xz" получим: "b cd 83ya"
    Использовать заголовок:
    procedure Zamena(var Stroka: string);

Ответы 4

  • Спасибо, а с версией Паскаля, как вы и говорили, вышла накладка
  • Но ведь это проблема, которую Вы сами себе устроили, не так ли?
  • Точно! =)
    • Автор:

      benjiqul6
    • 5 лет назад
    • 0
  • PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018Внимание! Если программа не работает, обновите версию!procedure Zamena(var Stroka:string);begin  var cin:='abcdefghijklmnopqrstuvwxyz'.ToCharArray;  var n:=cin.Length;  var cout:=cin[1:n]+cin[:1];  for var i:=1 to Stroka.Length do begin    var p:=cin.IndexOf(Stroka[i]);    if p>=0 then Stroka[i]:=cout[p]    endend;begin  var aa:='a bc 83xz';  aa.Println;  Zamena(aa);  aa.Printlnend.Примерa bc 83xzb cd 83ya
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years