Задача 34088 Дан текст. Определить сколько в нем...

vk505156332

2019-03-02 10:42:15

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

slava191

2019-03-02 11:19:11

★

[b]Примерно так:[/b]

program glas_bukvi;
const Glas = ['А','О','Ю','Я','У','Е','И','а','о','ю','я','у','е','и'];
var
s: string;
i,k: integer;
begin
write('Введите строку: ');
readln(s);
for i:=1 to length(s) do
if (s [i] in glas)then
k:=k+1;
writeln('Гласных = ',k);
end.