Program Shifr; var s1,s2,alf:string; i:integer; key, Kod:integer; //ключ шифрования f1,f2:text; BEGIN alf:=''; 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.
1) Наиболее распространенная причина появления ошибки 500 internal server error, это некорректное содержимое файла .htaccess. В этом файле не должны присутствовать специальные php-директивы, по типу таких:
php_value name value php_flag name on|off
Другие некорректные директивы или содержимое, также могут вызывать эту ошибку.
Для исправления в данном случае, необходимо перед строкой, в которой вы сомневаетесь, поставить знак комментирования #, который указывает серверу, что это не команда, а простой комментарий, и поэтому, ее не нужно выполнять.
Если после комментирования определенной строки, ваш сайт заработал, значит, проблема в синтаксисе или сочетании команд.
var s1,s2,alf:string;
i:integer;
key, Kod:integer; //ключ шифрования
f1,f2:text;
BEGIN
alf:='';
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.
1) Наиболее распространенная причина появления ошибки 500 internal server error, это некорректное содержимое файла .htaccess. В этом файле не должны присутствовать специальные php-директивы, по типу таких:
php_value name value
php_flag name on|off
Другие некорректные директивы или содержимое, также могут вызывать эту ошибку.
Для исправления в данном случае, необходимо перед строкой, в которой вы сомневаетесь, поставить знак комментирования #, который указывает серверу, что это не команда, а простой комментарий, и поэтому, ее не нужно выполнять.
Если после комментирования определенной строки, ваш сайт заработал, значит, проблема в синтаксисе или сочетании команд.