• Дана последовательность символов, оканчивающаяся точкой. Подсчитать количество групп символов +-. (Pascal abc (тип данных символьные )).

Ответы 1

  • Var C,C1:char;    k:integer;Begink:=0;RepeatC1:=C;Read(C);if (C1 = '+')and(C = '-') then k:=k+1Until C = '.';Write(k)End.516r5t146bsrg+-+-654sr6fgh541f+-65s4fg.3
    • Автор:

      pepper
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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