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

На строки:
Дан текст из букв и цифр. Заменить все нули в тексте на букву А,а все единицы на букву М. Подсчитать число замен. Нужно написать Код + блок схему 

  1. Ответ
    Ответ дан Аккаунт удален
    // PascalABC.NET 3.2, сборка 1363 от 17.12.2016
    // Внимание! Если программа не работает, обновите версию!

    begin
      var s:=ReadlnString('>');
      var na:=s.Where(c->c='0').Count;
      s:=s.Replace('0','А');
      var nm:=s.Where(c->c='1').Count;
      s:=s.Replace('1','M');
      Writeln(s);
      Writeln('Заменено нулей- ',na,', единиц- ',nm)
    end.

    Пример
    > ТурбоПаскаль не поддерживается с 1994г, сейчас 2016г.
    ТурбоПаскаль не поддерживается с M994г, сейчас 2АM6г.
    Заменено нулей- 1, единиц- 2
    1. Ответ
      Ответ дан Аккаунт удален
      Сложно. Во-первых, писанины много, во вторых, придется заново блок-схему делать? Так что это отпадает.
    2. Ответ
      Ответ дан Аккаунт удален
      И, я вам 100% говорю: не знаете Replace, значит, не знаете и
    3. Ответ
      Ответ дан Аккаунт удален
      var s:=ReadlnString('>');
      var na:=s.Where(c->c='0').Count;
    4. Ответ
      Ответ дан Аккаунт удален
      В следующий раз указываете корректно версию и объем своих знаний.
    5. Ответ
      Ответ дан Аккаунт удален
      В каждой школе учат по-своему, а мысли читать люди пока еще не научились.
Самые новые вопросы