Подсчитать в строке текста гласные, которые входят в каждое слово текста

@Dark_dragon · Регистрация: 16.02.2010

Подсчитать в строке текста все гласные,которые входят в каждое слово текста... вывод- буква и сколько раз повторяется.
(с помощью множеств)

@Fynjy R · 02.03.2010, 21:16

Вот, что у меня получилось:

Pascal

Program GLAAAS;
var s : string;
    a : array [1..10] of string;
    i, n, l : integer;
Begin
     write ('Введите строку: ');
     readln (s);
     a[1]:='а';
     a[2]:='е';
     a[3]:='ё';
     a[4]:='и';
     a[5]:='о';
     a[6]:='у';
     a[7]:='ы';
     a[8]:='э';
     a[9]:='ю';
     a[10]:='я';
     for i:=1 to 10 do
         Begin
         n:=0;
         write (a[i], ' - ');
         for l:=1 to Length (s) do
             if s[l]=a[i] then n:=n+1;
         writeln (n)
         End
End.

Ну как? Подходит?

@Dark_dragon · 03.03.2010, 06:11 **[ТС]**

спс,но тут надо с множествами с массивами я сам справилсяЁ

@Dark_dragon 0 / 0 / 0 Регистрация: 16.02.2010 Сообщений: 49
		1
	Подсчитать в строке текста гласные, которые входят в каждое слово текста 02.03.2010, 20:28. Просмотров 1191. Ответов 2 Метки нет (Все метки) Подсчитать в строке текста все гласные,которые входят в каждое слово текста... вывод- буква и сколько раз повторяется. (с помощью множеств) 0

@Dark_dragon 0 / 0 / 0 Регистрация: 16.02.2010 Сообщений: 49
	03.03.2010, 06:11 [ТС]	3
	спс,но тут надо с множествами с массивами я сам справилсяЁ 0

Опции темы

Подсчитать в строке текста гласные, которые входят в каждое слово текста

Решение