profile
Опубликовано 5 лет назад по предмету Информатика от 89064161536mama

paskal abc
заменить в строке все буквы а на буквы б

  1. Ответ
    Ответ дан iolandavalerypad353

    var

     s: string;

     i: integer;

    begin

     Write('s = '); Readln(s);

     for i := 1 to Length(s) do

       if s[i] = 'а' then s[i] := 'б';

     Write(s);

     Readln

    end.

    1. Ответ
      Ответ дан iolandavalerypad353
      вроде должно работать в турбо-паскале, не не точно =)
Самые новые вопросы