Сообщение - рубикон перейден, сдвиг - 27
Для расшифровки можно использовать программу:
const st='ХШЖНПУТ ФКХКОЙКТ';
var i,j:integer; s:string;
begin
for i:=25 to 30 do
begin
s:='';
for j:=1 to length(st) do
if st[j]<>' ' then s:=s+chr(ord(st[j])+i) else s:=s+' ';
writeln(s);
end;
end.
У файла "index" поменяй формат с "txt" на "html" и закинь все вместе в какую-нибудь папку.
Если b^n=1, тогда b всегда равно 1(1 в любой степени равна 1), либо <span>ответ</span> 1, либо неправильно сформулировано задание. Поправьте если не так.
Const N = 5;
Var a:array [1..N] of integer; i,S:integer;
Begin
randomize; S:=0;
for i:=1 to N do begin
a[i]:=random(61)-30;
if (a[i]<0) and (a[i] mod 2 <>0) then S:=S+a[i]; end;
writeln(S);
readln;
end.