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

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

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

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

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

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

Если вас не затруднит, можно предельно просто и поподробнее...
Заранее вас благодарю!
Romashka) вне форума   Ответить с цитированием
Старый 06.11.2012, 18: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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


15:40.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.