сервис вопросов и ответовНаписать программу нахождения количества гласных в строке.
5-9 класс|
|
Bebag00
11 февр. 2014 г., 1:41:17 (10 лет назад)
Юлия1123
11 февр. 2014 г., 4:05:38 (10 лет назад)
const a:array[1..32] of char=('А','а','Е','е','Ё','ё','И','и','О','о','У','у','Ы','ы','Э','э','Ю','ю','Я','я','A','a','E','e','I','i','O','o','U','u','Y','y');
var s:string;
i,j,k:integer;
begin
readln(s);
for i:=1 to length(s) do
for j:=1 to 32 do
if s[i]=a[j] then k+=1;
writeln(k);
end.
Ответить
Другие вопросы из категории
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100 – баллы учащихся выпускного класса за итоговый
тест по информатике. Для получения положительной оценки за тест требовалось набрать не менее 20 баллов. Опишите на паскале алгоритм, который позволяет найти и вывести минимальный балл среди учащихся, получивших за тест положительную оценку.
Читайте также
Помогите написать программу для Паскаля.
1. Написать программу нахождения произведения n чисел.
1. Даны два различных вещественных числа X и Y. Написать программу, возведения наименьшего из чисел в квадрат, наибольшего – в куб и нахождения среднего
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни
помогите пожалуйста..очень надо....что нибудь из этих задач..1)написать программу которая поменяет местами первую и последнюю букву в слове. 2)написать
программу которая вставит между буквами веденного слова пробелы 3)написать программу вывода на экран деление двух чисел
Вы находитесь на странице вопроса "Написать программу нахождения количества гласных в строке.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.