Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program samoglasnik;
- uses crt;
- var a:string;
- i,s:integer;
- begin
- readln (a);
- for i:=1 to length (a) do
- begin
- if (a[i]:='a') or (a[i]:='e') or (a[i]:='i') or (a[i]:='o') or (a[i]:='u') or (a[i]:='A') or (a[i]:='E') or (a[i]:='I') or (a[i]:='O') or (a[i]:='U') then s:=s+1;
- if (a[i]:='a') or (a[i]:='e') or (a[i]:='i') or (a[i]:='o') or (a[i]:='u') then a[i]:='X';
- if (a[i]:='A') or (a[i]:='E') or (a[i]:='I') or (a[i]:='O') or (a[i]:='U') then a[i]:='x';
- end;
- writeln (s);
- writeln (a);
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement