Шифр цезаря на паскале , почему не выдает при дешифрации букву в с ключом 3 и 5 и дальше! что исправить? program shifr_cezerya; uses crt; var a,b,c: string; i,j,k,d,g: integer; begin clrscr; writeln('шифрование? 1-да,0-нет'); readln(g); writeln('исходный текст '); readln(a); writeln('ключ'); readln(d); c: =''; //результат b: =''; for i: =1 to length(a) do //цикл for j: =1 to length(b) do begin if g=1 then k: =(j+d) mod 33 else k: =(j-d)mod 33; if a[i]=b[j] then c: =c+b[k]; if k> 33 then k: =k-33 else k: =k+33; end; writeln(c); readkey; end.
2. Отладка в этом случае должна Вводи алфавит и смотри результат, должен быть сдвиг на ключ.