fork(1) download
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. const h=['e','u','i','o','a'];
  9. p=['q','w','r','t','y','p','s','d','f','h','g','j','k','l','z','x','c','v','b','n','m']; {Множина приголосних літер}
  10. var ss:string;
  11. i,k1,k2:integer;
  12. f:textfile;
  13.  
  14. begin
  15. // assign(f,'o.txt');
  16. writeln('Wedit text:');
  17. readln(ss);
  18. // rewrite(f);
  19. // writeln(f,ss);
  20.  
  21. k1:=0;
  22. k2:=0;
  23. for i:=1 to length(ss) do
  24. if ss[i]in p then
  25. k1:=k1+1
  26. else
  27. if ss[i] in h then
  28. k2:=k2+1;
  29.  
  30.  
  31. if k1>k2 then
  32. begin
  33. writeln;
  34. writeln('Kilkist golosnux=',k2);
  35. writeln('Kilkist prugolosnux=',k1);
  36. // writeln(f,'Kilkist prugolosnux=',k1);
  37. // writeln(f,'Kilkist golosnux=',k2);
  38. writeln('Pryholosnyh bilhe!!!');
  39. // writeln(f,'Pryholosnyh bilhe!!!');
  40. end
  41. else
  42. begin
  43. writeln('Holosnyh bilhe!!!');
  44. //writeln(f,'Holosnyh bilhe!!!');
  45. end;
  46. // close(f);
  47. //readln;
  48. end.
  49.  
Success #stdin #stdout 0s 388KB
stdin
pryvit! Yak sya mayesh?
stdout
Wedit text:

Kilkist golosnux=5
Kilkist prugolosnux=12
Pryholosnyh bilhe!!!