Advertisement
Guest User

Untitled

a guest
Mar 18th, 2018
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.50 KB | None | 0 0
  1. program samoglasnik;
  2. uses crt;
  3. var a:string;
  4. i,s:integer;
  5. begin
  6. readln (a);
  7. for i:=1 to length (a) do
  8. begin
  9. 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;
  10. if (a[i]:='a') or (a[i]:='e') or (a[i]:='i') or (a[i]:='o') or (a[i]:='u') then a[i]:='X';
  11. if (a[i]:='A') or (a[i]:='E') or (a[i]:='I') or (a[i]:='O') or (a[i]:='U') then a[i]:='x';
  12. end;
  13. writeln (s);
  14. writeln (a);
  15. readln;
  16. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement