Паскаль шифр цезаря почему при дешифровке в слове с буквой "в" в результате выдаёт восклицательный знак то есть не может его дешифровать? 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 k> 33 then k: =k-33; if k< 0 then k: =k+33; if a[i]=b[j] then c: =c+b[k]; end; writeln(c); readkey; end.

yakovlevayaninaA    2   28.05.2019 00:00    0