Вопрос по информатике:
Напишите пожалуйста программу . Условие такое. Мы вводим строку(любую) программа должна посчитать количество букв "а" , если же такой буквы в этой строке нет программа должна выводить сообщение о том что такой буквы нет.
- 05.03.2018 04:44
- Информатика
- remove_red_eye 3809
- thumb_up 11
Ответы и объяснения 1
Var
s:string;
i,k:integer;
begin
k := 0;
readln(s);
for i := 1 to length(s) do
if s[i] = 'а' then
k := k + 1;
if k > 0 then
writeln(k)
else
writeln('Нет искомой буквы')
end.
- 06.03.2018 21:45
- thumb_up 29
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.