Ответ: 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
Дана последовательность символов, оканчивающаяся точкой. Подсчитать количество групп символов +-. (Pascal abc (тип данных символьные )). — Правильный ответ на вопрос найдете ниже
07.02.2020 · 1