Find words with alternating vowels and consonants: Difference between revisions
Find words with alternating vowels and consonants (view source)
Revision as of 13:28, 8 April 2021
, 3 years ago→{{header|Ada}}
(Ada version) |
m (→{{header|Ada}}) |
||
Line 28:
declare
Word : constant String := Get_Line (File);
First : Boolean := True;▼
Failed : Boolean := False;
Vowel : Boolean := not Is_Vowel (Word (Word'First));
begin
for Letter of Word loop
if
end if;
end loop;
if not Failed and Word'Length > 9 then
|