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

  • написать программу,каторая выделит все запятые из строки st начиная с позиции р

Ответы 1

  •  {Программа на Free Pascal}

    Var st:string;

    z,p,i:integer;

    begin

    z:=0;

    readln(st);{Считываем строку}

    read(p);{Считываем позию}

    for i:=p to length(st) do if(st[i] = ',') then inc(z);{Пробегаемся по строке с позиции p и ищем ,}

    writeln(z);{Выводим кол-во найденых запятых}

    end.

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

    • Автор:

      chivas
    • 6 лет назад
    • 0

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

Еще вопросы

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

Войти через Google

 или

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

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

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