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

если 1 буква твоего имени и, то все остальные поменять на *
помоги пожааааааалуууйстаа
программу составиить
строковый тип данных
паскаль абс

  1. Ответ
    Ответ дан Аккаунт удален
    1. Решение для "школьников"

    // PascalABC.NET 3.0, сборка 1073
    var
      i,n:integer;
      s:string;
    begin
      Write('Введите свое имя: '); Readln(s);
      if s[1]='И' then begin
        n:=Length(s)-1;
        s:=s[1];
        for i:=1 to n do s:=s+'*'
      end;
      Writeln('Результат работы: ',s)
    end.

    Тестовое решение:
    Введите свое имя: Игорь
    Результат работы: И****

    Введите свое имя: Сергей
    Результат работы: Сергей

    2. Решение, каким оно должно быть, но этому не учат

    // PascalABC.NET 3.0, сборка 1073
    begin
      var s:=ReadString('Введите свое имя: ');
      if s[1]='И' then s:=s[1]+StringOfChar('*',Length(s)-1);
      Writeln('Результат работы: ',s)
    end.
    1. Ответ
      Ответ дан beenchmark
      2) если имя будет длиной в 10 символов и 10-тый символ А, то s[10] будет А?
    2. Ответ
      Ответ дан Аккаунт удален
      А причем тут 10-й или еще какой-то? Мы смотрим первый, если он "И" =- все остальные, сколько бы их не было, меняем на звездочки. А Если не "И" - вообще ничего не делаем.
    3. Ответ
      Ответ дан beenchmark
      если бы спрашивалось какой 10тый символ в предложении то он записывался бы как s[10]?
    4. Ответ
      Ответ дан Аккаунт удален
      Да, конечно.
Самые новые вопросы