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

[nazar113]

Дано строку. определить количество гласных букв в строке.

как это сделать на паскале?

[Sciv]

Через множество. Как-то так:

const Glas=['а','е','и','о','у','ы','э','ю','я','А','Е','И','О','У','Ы','Э','Ю','Я'];

var i,count: integer;
    s: string;

begin
  ReadLn(s);
  count:=0;
  for i:=1 to length(S) do
    if s[i] in Glas then inc(count);
  writeLn(count);
  ReadLn;
end.

[Poma][a]

Мой косяк, прошу простить..

[Stilet]

UpCase(s[i]) in Glas

Никого ничего не смущает в этой записи?

[eoln]

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

[Poma][a]

Точняк! + в константе я тоже удалил не те буквы.. блин.. туплю..

[Sciv]

Опа! Че я пропустил?

[Stilet]

по-крайней мере в старый Паскалях

Ох, как бы не пришлось теперь делить ветки форума на разновидности паскаля...

[Izobara]

Сообщение от Stilet

Ох, как бы не пришлось теперь делить ветки форума на разновидности паскаля...

На одном небезызвестном форуме так и есть. И меня ругает Модератор, когда я суну код не туда

[Stilet]

И меня ругает Модератор, когда я суну код не туда

В общем то правильно делает. Ему то убирать за посетителями.