Определить количество букв о в скобках.
Дана строка символов. Определить количество букв 'о' между самой
левой открывающийся cкобкой(если какие-либо скобки отсутствуют, ты
вывести cответстующие сообщение.
Решение:
Program bukvao;
var s:string;
k,i:integer;
BEGIN
writeln('Ввести предложение');
readln(s);
k:=0;
if pos ('(',s)=0 then writeln('нету скобки ( ') else
if pos (')',s)=0 then writeln('нету скобки ) ') else
begin
for i:=pos('(',s) to pos(')',s) do
if S[i]='о' then k:=k+1;
end;
writeln(k);
readln;
END.
Объяснение:
Вводим предложение.
Переменной к присваиваем значение 0. т.к эта переменная будет считывать количество букв о.
Проверяем есть ли скобки в предложение если есть то начинаем цикл от ( до ).
Если S[i] (i - шаг цикла) равен о то k присваиваем значение k и прибавляем ему 1.
В итоге мы со считаем все буквы О в скобках.
|
| Категория: Строки | Добавил: deespe (29.01.2011)
|
| Просмотров: 1124
| Рейтинг: 0.0/0 |
|
