Question

в строке символов определить наличие гласных букв с помощью Оператора if goto

Answer 1

program gt;
label 1,2;
var s:string;
i,l:integer;
begin
readln(s);
l:=length(s);
i:=0;
1:
i:=i+1;
if(s[i]='a')or(s[i]='o')or(s[i]='u')or(s[i]='e')or(s[i]='i')or(s[i]='y')then begin
writeln('YES');
goto 2;
end;
if(i<l)then goto 1;
writeln('NO');
2:
end.

Answer 2

так тебе будет ясно по блок- схеме