Определить, все ли гласные содержатся в заданной строке - Pascal

Формулировка задачи:

Написать программу на паскале, которая будет определять все ли гласные содержаться в заданной строке....

Код к задаче: «Определить, все ли гласные содержатся в заданной строке - Pascal»

textual
const gl='aeiou';
var s:string;
    i,k:integer;
begin
writeln('Введите строку из строчных латинских букв');
readln(s);
k:=0;
i:=1;
while(i<=length(gl))and(k=0) do
if pos(gl[i],s)=0 then k:=1
else inc(i);
if k=0 then write('Все гласные есть в строке')
else write('Не все гласные есть в строке')
end.

15   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ