Jump to content

строки в паскале


Recommended Posts

maksimilian:

Вообще-то для таких вопросов есть специальная тема, помечченная как "важная" - "Заказы "Сделайте все за меня", А вдруг прокатит?"... Но это на будущее.

var t,m:string; i,k:integer;beginreadln(t); writeln; k:=0; t:=t+' '; m:='aeiouyAEIOUY';for i:=1 to length(t) do if t[i]>='0' then k:=k+1 else if k<>0 then begin if(pos(t[i-k],m)<>0)and(pos(t[i-1],m)=0)then writeln(copy(t,i-k,k)); k:=0 end;readln end.

Тут я гласные перечислил в строке m. Гласные английские, соответственно, и работает программа с английскими словами. Если нужно русские - нужно подкорректировать эту строку, все остальное без изменений.

Edited by Тролль
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...