Вопрос по информатике:
Помогите решить задачу в Pascal
Задано слово произвольной длины. Определить, сколько раз в нем встречается буква "и"
- 22.07.2016 04:23
- Информатика
- remove_red_eye 5579
- thumb_up 31
Ответы и объяснения 2
var
s: string; x, i: integer;
begin
write('Введите строку: ');
read(s);
for i := 1 to length(s) do
if s[i] = 'и' then inc(x);
writeln('Кол-во букв "и": ', x);
end.
- 23.07.2016 23:09
- thumb_up 47
Var
s: string;
c: integer;
begin
readln(s);
while Pos('и',s)>0 do begin
Delete(s,Pos('и',s),1);
inc(c)
end;
writeln(c)
end.
- 24.07.2016 16:01
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.