fork download 
  1. var c : char;
  2.     numer : integer;
  3.  
  4. begin
  5.  
  6.     {w petli ma byc:
  7.       wczytywanie c (jest)
  8.       kodowanie malych liter (jest)
  9.       kodowanie wielkich liter (napisac)
  10.       kodowanie cyfr (napisac)
  11.  
  12.        po zakodowaniu zmienna c ma zawierac albo 
  13. oryginalna wartosc (dla np. '+') albo zakodowana.
  14.  
  15.       wypisanie c (jest)
  16.     }
  17.  
  18.     while not eof() do
  19.     begin
  20.         read(c);
  21.  
  22.         {male litery}
  23.         if (c>='a') and (c<='z') then
  24.         begin
  25.             {numer litery w alfabecie, dla 'a' = 0, dla 'b' =1, ..., 'z'=25 }
  26.             numer := ord(c) - ord('a');
  27.  
  28.             {zakodowanie liczby - dodanie 13, i "zawiniecie" jesli numer}
  29.             {wykracza poza 'z' (numer 25) }
  30.             numer := (numer + 13) mod 26;
  31.  
  32.             c:= chr(ord('a')+numer) ;
  33.         end;
  34. 	if (c>='A') and (c<='Z') then
  35.         begin
  36.             {numer litery w alfabecie, dla 'a' = 0, dla 'b' =1, ..., 'z'=25 }
  37.             numer := ord(c) - ord('A');
  38.  
  39.             {zakodowanie liczby - dodanie 13, i "zawiniecie" jesli numer}
  40.             {wykracza poza 'z' (numer 25) }
  41.             numer := (numer + 13) mod 26;
  42.  
  43.             c:= chr(ord('A')+numer) ;
  44.         end;
  45.  
  46.         {wielkie litery}
  47.  
  48.         {cyfry}
  49.  
  50.         write(c);
  51.     end;
  52. end.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
Hello World!
compilation info 
luac: prog.lua:1: '=' expected near 'c'
stdout 
Standard output is empty
https://ideone.com/ZDOJK
language:
Lua (luac 5.3.3)
created:
14 years 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!