15; ((s [i]= p ) or (s [i]= P )) then mas [i]:=16; ((s [i]= q ) or (s [i]= G )) then mas [i]:=17; ((s [i]= r ) or (s [i]= R )) then mas [i]:=18; ((s [i]= s ) or (s [i]= S )) then mas [i]:=19; ((s [i]= t ) or (s [i]= T )) then mas [i]:=20; ((s [i]= u ) or (s [i]= U )) then mas [i]:=21; ((s [i ]= v ) or (s [i]= V )) then mas [i]:=22; ((s [i]= w ) or (s [i]= W )) then mas [i]:=23; ((s [i]= x ) or (s [i]= X )) then mas [i]:=24; ((s [i]= y ) or (s [i]= Y )) then mas [i]:=25; ((s [i]= z ) or (s [i]= Z )) then mas [i]:=25 ;; i:=1 to length (s) do (mas [i]) ;;;; ((v=2) and (v1 lt; gt; 1) ) then
begin ( Немає даних дря розшифровки );
end; ((v=2) and (v1=1)) then ( ); ( Розшифровка ); i:=1 to length (s) do (mas [i]=1) then zak [i]:= a raquo ;; (mas [i]=2) then zak [i]:= b raquo ;; (mas [i]=3) then zak [i ]:= c raquo ;; (mas [i]=4) then zak [i]:= d raquo ;; (mas [i]=5) then zak [i]:= e raquo ;; (mas [i]=6) then zak [i]:= f raquo ;; (mas [i]=7) then zak [i]:= g raquo ;; (mas [i]=8) then zak [i ]:= h raquo ;; (mas [i]=9) then zak [i]:= i raquo ;; (mas [i]=10) then zak [i]:= j raquo ;; (mas [i]=11) then zak [i]:= k raquo ;; (mas [i]=12) then zak [i]:= l raquo ;; (mas [i]=13) then zak [i ]:= m raquo ;; (mas [i]=14) then zak [i]:= n raquo ;; (mas [i]=15) then zak [i]:= o raquo ;; (mas [i]=16) then zak [i]:= p raquo ;; (mas [i]=17) then zak [i]:= q raquo ;; (mas [i]=18) then zak [i ]:= r raquo ;; (mas [i]=19) then zak [i]:= s raquo ;; (mas [i]=20) then zak [i]:= t raquo ;; (mas [i]=21) then zak [i]:= u raquo ;; (mas [i]=22) then zak [i]:= v raquo ;; (mas [i]=23) then zak [i ]:= w raquo ;; (mas [i]=24) then zak [i]:= x raquo ;; (mas [i]=25) then zak [i]:= y raquo ;; (mas [i]=26) then zak [i]:= z raquo ;;; ( ); i:=1 to length (s) do (zak [i]) ;;;;;
polibiuszash (a: string) ;, t, t1, zash, rash: string ;, j, h, m, k, k1, code, n, v, v1: integer;: array [ 1 .. 3,1..10] of char;:= raquo ;;:=97;:=9; i:=1 to 3 doj:=1 to m doi=3 then:=m - 1; ; [i, j]:=char(n);:=n+1;;;(laquo;1-Зашифроватьraquo;);(laquo;2-Расшифроватьraquo;);(v);(v=1) then:=1; ( Введіть текст ); (a);:= raquo ;; h:=1 to length (a) doi:=1 to 3 doj:=1 to 9 do (a [h ]=a1 [i, j]) then (i, t); (j, t1);:=zash + t + t1 ;; (zash) ;; ((v=2) and (v1 lt; gt; 1) ) then
writeln ( Ні даннфх для розшифровки );
end; ((v=2) and (v1=1)) then:= raquo ;; h:=1 to length (zash) doi:=1 to 3 doj:=1 to 9 do (zash [h], k, code); (zash [h + 1], k1, code); ((k=i) and (k1=j)) then:=rash + a1 [i, j ];:=h + 1 ;;;; (rash) ;;;
menu (t, t1: integer); t lt; gt; 0 do begin ( Виберете спосіб шифрування );
writeln ( 1-шифр Цезаря, 2-шифр із заміною букв цифрами, 3-шифр Полібіуса ); ( Для виходу натисніть 0 );
readln (t); (t=0) then break; (t=1) then Cezarzash (a); (t=2) then Cifrzash (a); (t=3) then Polibiuszash (a) ;;;:=1; (t, t1);
readln;.
