Ответы на вопрос:
Program shifr; var s1,s2,alf: string; i: integer; key, kod: integer; //ключ шифрования f1,f2: text; begin alf: ='abcdefghijklmnopqrstuvwxyz'; assign(f1,'dannie.txt'); assign(f2,'shifr.txt'); reset(f1); rewrite(f2); writeln('введите ключ шифрования от 1 до 25: '); readln(key); while not(eof(f1)) do begin readln(f1,s1); s2: =''; for i: =1 to length(s1) do begin kod: =pos(s1[i],s1); kod: =kod+key; if kod> 26 then kod: =kod-26; if kod< 1 then kod: =kod+26; s2: =s2+alf[kod]; key: =-key; end; writeln(f2,s2); end; close(f1); close(f2); end.
Популярно: Информатика
-
Учитель123615.11.2021 17:53
-
сом3812.07.2021 12:25
-
aimnura7326.06.2020 11:15
-
vasapipkin93411.07.2020 00:02
-
mors303.12.2022 11:34
-
Samoilov290309.02.2023 11:11
-
Снежана199529.07.2022 01:58
-
Violent11124.12.2021 04:36
-
RomanenkoAA02.11.2020 22:20
-
АннаКлимчук199717.04.2022 16:57