fork download
copy 
  1. program z1;
  2.  
  3. var a,b,c:ansistring;
  4.  
  5. i,j,k,d:integer;
  6.  
  7. begin
  8.  
  9. writeln('шифр ');
  10.  
  11. readln(a);
  12.  
  13. writeln('ключ');
  14.  
  15. readln(d);
  16.  
  17. c:='';
  18.  
  19. b:='абвгдежзийклмнопрстуфхцчшщъыьэюя';
  20.  
  21. for i:=1 to length(a) do
  22.  
  23. for j:=1 to length(b) do
  24.  
  25. begin
  26.  
  27. k:=(j+d) mod 32;
  28.  
  29. if a[i]=b[j] then c:=c+b[k];
  30.  
  31. end;
  32.  
  33. writeln(c);
  34.  
  35. end.
Success #stdin #stdout 0s 4444KB
comments (?)
stdin
copy 
родителева
3
stdout
copy 
шифр 
ключ
�������������������������������������������������������������������������������������������������������������������������������������
https://ideone.com/As5MKa
language:
Pascal (fpc 3.0.4)
created:
3 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!