Ну раз поскакаль, то так
l:=2*3.14*r;
Эта команда рассчитает длину окружности по радиусу.
Если нужна программа полностью - надо уточнять это в условии.
А какой параграф? если 15 или 14 то я не знаю
const nx=20;
var r:array[1..nx] of integer;
var j:real; n,i,sum,k:integer;
begin
randomize;
write('Введите n');
readln(n);
for i:= 1 to n do begin
r[i]:= random(15);
if ((i mod 4 = 0) and (r[i] < 5 )) then begin
sum:= r[i]+sum;
k:=k+1;
end;
write(r[i]:4);
end;
writeln;
writeln('sum =',sum:3,' k =',k);
end.
Ответ:
Шифрование становится возможным благодаря важной особенности операции: операция ИСКЛЮЧАЮЩЕЕ ИЛИ обратна самой себе (A XOR Q) XOR Q = A. Таким образом, первую операцию ИСКЛЮЧАЮЩЕЕ ИЛИ с ключом Q можно использовать как шифрование, а вторую – как дешифрование с тем же ключом.
Объяснение: