Вопрос по информатике:
Дано предложение-строка. подсчитать количество слов, начинающихся с буквы 'а' написать программу на паскале
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 26.05.2015 22:34
- Информатика
- remove_red_eye 18295
- thumb_up 6
Ответы и объяснения 2
var c,a,n,i:longint;
begin
read(n);
read(a);
c:=a;
for i:=2 to n do
begin
read(a);
c:=c+a;
end;
write(c);
end.
- 27.05.2015 23:07
- thumb_up 39
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var s:=ReadlnString('Введите текст').ToWords;
Writeln('Кол-во равно ',s.Where(x->x[1]='а').Count)
end.
Тестовое решение:
Введите текст Большой арбуз оказался зеленым, а маленький - красным
Кол-во равно 2
- 29.05.2015 00:42
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.