Вот тебе азбука Морзе. Можно написать по точкам любой шифр. к примеру напиши несколько. Код от сейфа, пароль на телефон . Или куда там нужно)
Const n=20;
var a:array[1..n] of integer;
i,j,k,c:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]<0 then
begin
k:=k+1;
c:=a[i];
for j:=i-1 downto k do a[j+1]:=a[j];
a[k]:=c;
end;
for i:=1 to n do write(a[i]:4);
writeln;
end.
Пример:
5 25 24 -20 13 18 -2 21 -24 14 -2 -25 -18 13 23 11 22 -22 -21 -22
-20 -2 -24 -2 -25 -18 -22 -21 -22 5 25 24 13 18 21 14 13 23 11 22
<span>Одно из фундаментальных понятий информатики, описывающее некоторую последовательность действий – это алгоритм</span>
Var n,k,i:integer;
y:longint;
begin
readln(n);
k:=1;
y:=1;
for i:=1 to n+1 do begin
y:=y*k;
k:=k+2;
end;
writeln(y);
end.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
var n2 := n div 2;
(a[:n2].Reverse + a[n2:].Reverse).Println
end.