Вопрос по информатике:
составте программу подсчета общего количества слогов "ба", "Ба" во введенной с клавиатуры строке s/
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.03.2018 10:27
- Информатика
- remove_red_eye 11922
- thumb_up 16
Ответы и объяснения 1
Pascal неприятен тем, что не дает сравнивать без учета регистра(переводить все в верхний/нижний регистр тоже не вариант), поэтому так:
program test;
uses crt;
const
st1='ba';
st2='Ba';
var
str:string;
i,n:integer;
begin
clrscr;
write('Input string: ');readln(str);
for i:=1 to length(str) do
if (st1=copy(str,i,2)) or (st2=copy(str,i,2)) then
n:=n+1;
writeln(n);
end.
- 20.03.2018 02:40
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.