fork download
  1. program lojban;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. var sAll, sCurr : string;
  9. i : Integer;
  10.  
  11. begin
  12. Readln(sAll);
  13. i := 1;
  14. while i < Length(sAll) do begin
  15. sCurr := Copy(sAll, i, 2);
  16. if sCurr = 'no' then
  17. write('0')
  18. else if sCurr = 'pa' then
  19. write('1')
  20. else if sCurr = 're' then
  21. write('2')
  22. else if sCurr = 'ci' then
  23. write('3')
  24. else if sCurr = 'vo' then
  25. write('4')
  26. else if sCurr = 'mu' then
  27. write('5')
  28. else if sCurr = 'xa' then
  29. write('6')
  30. else if sCurr = 'ze' then
  31. write('7')
  32. else if sCurr = 'bi' then
  33. write('8')
  34. else if sCurr = 'so' then
  35. write('9');
  36. i := i+2;
  37. end;
  38. Writeln;
  39. end.
  40.  
Success #stdin #stdout 0s 432KB
stdin
renopavo
stdout
2014