20. постройте переключательный схемы с заданными функциями проводимости

171

296

Посмотреть ответы 1

Ответы на вопрос:

Sofiamarfiya

Информатика

4,7(91 оценок)

Const rk = [' ', '.', ',', '; ', ': ', '! ', '? ']; c = 'р'; var s: string; i: integer; begin writeln('введите предложения'); readln(s); for i : = 1 to length(s) do if ((s[i] in rk) and (s[i + 1] = c)) or ((i = 1) and (s[i] = c)) then begin writeln('в предложение встречаются слова на букву', c); halt; end; writeln('таких слов нет'); readln; end.