Вопрос по информатике:
Запишите программу, определяющая колво гласных букв в введенном слове
Пожаловаться
- 24.05.2016 10:42
- Информатика
- remove_red_eye 2245
- thumb_up 44
Ответы и объяснения 1
//прога на Pascal`e
var
s: string;
ch: set of char = ['а', 'о', 'у', 'е', 'ё', 'и', 'э', 'я', 'ю'];
i, count: byte;
begin
readln (s);
for i:=1 to length (s) do
if s[i] in ch then inc (count);
write (count);
end.
var
s: string;
ch: set of char = ['а', 'о', 'у', 'е', 'ё', 'и', 'э', 'я', 'ю'];
i, count: byte;
begin
readln (s);
for i:=1 to length (s) do
if s[i] in ch then inc (count);
write (count);
end.
Пожаловаться
- 25.05.2016 20:42
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы