fork download
copy 
  1. program natoabc;
  2.  
  3. var
  4.     S, T, lettera : AnsiString;
  5.     step, pos : Longint;
  6.  
  7. begin
  8. {
  9.     uncomment the two following lines if you want to read/write from files
  10.     assign(input,  'input.txt');  reset(input);
  11.     assign(output, 'output.txt'); rewrite(output);
  12. }
  13.  
  14.     ReadLn(S);
  15.  
  16.     T := '';
  17.  
  18.     { INSERT YOUR CODE HERE }
  19.     {"alpha", "bravo", "charlie", "delta", "echo", "foxtrot", "golf", "hotel", "india", "juliett", "kilo", "lima", "mike", "november", "oscar", "papa", "quebec", "romeo", "sierra", "tango", "uniform", "victor", "whiskey", "xray", "yankee", "zulu"}
  20.  
  21.     pos:=1; T:=S[1]; 
  22.     while pos<=length(S) do
  23.                 begin
  24.                 lettera:=S[pos];
  25.                    case lettera of
  26.         				 'a' : step :=5;
  27.         				'b' : step :=5;
  28.           'c' : step :=7;
  29.           'd' : step :=5;
  30.           'e' : step :=4;
  31.           'f' : step :=7;
  32.           'g' : step :=4;
  33.           'h' : step :=5;
  34.           'i'  : step :=5;
  35.           'j' : step :=7;
  36.           'k' : step :=4;
  37.           'l' : step :=4;
  38.           'm' : step :=4;
  39.           'n' : step :=8;
  40.           'o' : step :=5;
  41.           'p' : step :=4;
  42.           'q' : step :=6;
  43.           'r' : step :=5;
  44.           's' : step :=6;
  45.           't' : step :=5;
  46.           'u' : step :=7;
  47.           'v' : step :=6;
  48.           'w' : step :=7;
  49.           'x' : step :=4;
  50.           'y' : step :=6;
  51.           'z' : step :=4;
  52.         end;
  53.                    pos:=pos+step;
  54.                    T:=T+S[pos];
  55.                 end;   
  56.     WriteLn(T);
  57. end.
Success #stdin #stdout 0.01s 5316KB
comments (?)
stdin
copy 
kilooscardeltakilouniformpapaalpha
stdout
copy 
kodkupa
https://ideone.com/HgiikT
language:
Pascal (fpc 3.0.4)
created:
3 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!