Определить номера позиций гласных букв в заданном тексте

@Roooman · Регистрация: 19.11.2011

Студворк — интернет-сервис помощи студентам

помогите с задачей пожалуйста. определить номера позиций гласных букв в заданном тексте

Добавлено через 2 минуты

Visual Basic

var
  a: array[1..10] of string;
  i:integer;
  n:set of char;
begin
   write('введите текст: ');
  for i:=1 to 10 do
      read(a[i]);
  writeln;
  for i:=1 to 10 do
  begin
        if a[i]=('ё','у','е','ы','а','о','э','я','и','ю') then write(i,' ':3);
  end;
  writeln;
  readln;
end.

Добавлено через 23 секунды
я так сделал,чет не работает

@КонецСвета · 19.11.2011, 17:15

Pascal

var
s: string;
i:integer;
n:set of char;
begin
write('введите текст: ');
read(s);
writeln;
for i:=1 to length(s) do
begin
if s[i]in ['ё','у','е','ы','а','о','э','я','и','ю'] then write(i,' ':3);
end;
writeln;
readln;
end.

Добавлено через 1 минуту

Сообщение от КонецСвета

n:set of char;

Это, впрочем, излишне, и от исчезновения этой строки в коде, в результате ничего не поменяется...

@Roooman · 19.11.2011, 19:55 **[ТС]**

спасибо большое))та строка осталась от старых попыток))

Добавлено через 2 часа 37 минут
КонецСвета, можешь еще с одной задачкой помочь?

@Roooman 0 / 0 / 1 Регистрация: 19.11.2011 Сообщений: 12
	19.11.2011, 19:55 [ТС]	3
	спасибо большое))та строка осталась от старых попыток)) Добавлено через 2 часа 37 минут КонецСвета, можешь еще с одной задачкой помочь? 0

Опции темы

Определить номера позиций гласных букв в заданном тексте

Решение