Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 06.11.2012, 17:23   #1
Romashka)
 
Регистрация: 31.10.2012
Сообщений: 4
По умолчанию Определить, сколько гласных введено с клавиатуры и сколько из них символов "а"

Написать программу, которая определяет, сколько гласных символов введено с клавиатуры и сколько из них символов "а".

Если вас не затруднит, можно предельно просто и поподробнее...
Заранее вас благодарю!
Romashka) вне форума Ответить с цитированием
Старый 06.11.2012, 17:27   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Код:
readln(s);
for i:=1 to length(s) do begin
 if s[i]='a' then inc(a);
 if s[i] in ['a','e','o'] then inc(glas);
end;
Потом выводи на экран a и glas - это переменки типа integer. которые будут содержать кол-ва.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В ЭВМ вводятся по очереди координаты N точек. Определить, сколько из них попадает в круг. dmitriy20104 Паскаль, Turbo Pascal, PascalABC.NET 6 27.06.2012 10:37
Дан набор слов, разделенных ";" набор заканчивается ":".Определить ,сколько в нем слов,заканчивается буквой а _Алексей_ Помощь студентам 1 29.04.2012 14:21
Определить сколько символов до ":" Zzoyberg Помощь студентам 2 15.12.2011 19:07
Определить, сколько символов кириллицы и латиницы присутствует строке.Строка задается с клавиатуры olhapupkin Помощь студентам 0 30.11.2010 20:10
Дана строка символов до точки. Определить, сколько слов содержат ровно три буквы "К". Evidence Паскаль, Turbo Pascal, PascalABC.NET 0 01.06.2009 19:40


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840