Вопрос по информатике:
Дана последовательность символов, оканчивающаяся точкой. Подсчитать количество групп символов +-. (Pascal abc (тип данных символьные )).
Пожаловаться
- 05.12.2017 23:50
- Информатика
- remove_red_eye 6131
- thumb_up 17
Ответы и объяснения 1
Var C,C1:char;
k:integer;
Begin
k:=0;
Repeat
C1:=C;
Read(C);
if (C1 = '+')and(C = '-') then k:=k+1
Until C = '.';
Write(k)
End.
516r5t146bsrg+-+-654sr6fgh541f+-65s4fg.
3
k:integer;
Begin
k:=0;
Repeat
C1:=C;
Read(C);
if (C1 = '+')and(C = '-') then k:=k+1
Until C = '.';
Write(k)
End.
516r5t146bsrg+-+-654sr6fgh541f+-65s4fg.
3
Пожаловаться
- 06.12.2017 04:28
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы