• Дана строка содержащая любые символы кроме русских букв.
    Написать процедуру, которая заменит все малые латинские буквы на следующие по алфавиту.
    Например из строки: a bc 83xz получим b cd 83ya.
    procedure Zamena(var Stroka:string);
    Можно пожалуйста решить обычным языком(8класс) length,copy,deleted,insert,pos...

Ответы 6

  • ок
  • А лучше, если вы вообще не понимаете о чем идет речь, выучите материал и не задавайте абсурдных вопросов.
    • Автор:

      dangelo
    • 6 лет назад
    • 0
  • Можете сказать что они означают эти"[ ]"?
    • Автор:

      tinyqjt0
    • 6 лет назад
    • 0
  • Это индекс(номер) символа в строке
    • Автор:

      rileyrgx8
    • 6 лет назад
    • 0
  • в этих скобках он оказывается
    • Автор:

      ariasyuyl
    • 6 лет назад
    • 0
  • procedure Zamena(var stroka: string);

    var

     i: integer;

    begin

     for i := 1 to length(stroka) do

     begin

       if stroka[i] in ['a'..'y'] then inc(stroka[i])  

       else  

       if stroka[i] = 'z' then stroka[i] := 'a'

     end;

    end;

    var

     s: string;

    begin

     readln(s);

     zamena(s);

     Writeln(s);

    end.

    Не уверен в корректной компиляции на fpc, к примеру, напишите если будут проблемы.

    • Автор:

      suzan3ekc
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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