Задать вопрос Регистрация
Помочь другим

  • с клавиатуры вводят слово и символ.Составте программу которая:подсчитывает количество вхождений заданного символа

Ответы 1

  • var a:string; 

    b:char;

    i,sum:integer;

    begin

    readln(a,b);

    for i:=1 to length(a) do begin

    if pos(b,a)<>0 then begin

    sum:=sum+1;

    delete(a,1,pos(b,a));

    end;

    end;

    writeln(sum);

    end.

    • Автор:

      moocher
    • 5 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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