• Вопрос по информатике:

    скласти на мові pascal програму обчислення кількості букв (a) в заданому рядку символів

    • Автор:

      spike97

  • var

     str: string;

     Symbol_count: integer;

     i: integer;

    begin

     readln(str);

     for i := 1 to length(str) do  

       case str[i] of

         'а': inc(Symbol_count);

         'a': inc(Symbol_count);  

       end;

     writeln('Символов а: ', Symbol_count);

    end.

    • Отвечал:

      albamartin
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска