Прости, что отвечаю через 2 часа, был не дома)
var
i, j, n : integer;
flag : boolean;
begin
write('n = ');
read(n);
for i := 2 to n do begin
flag := true;
for j := 2 to i-1 do
if (i mod j = 0) then begin
flag:=false;
break;
end;
if flag = true then write(i, ' ');
end;
32*1=32. 32 бит в этих словах.
РАК = 1101010
Пытаемся расшифровать 1101010. Начинается с 11..., на 11 начинается только код Р. Оканчивается на ...0, что совпадает только с кодом буквы К. Остается 01, что расшифровывается однозначно как А.
<u>Декодируется однозначно</u>.
ЛАК = 01101010 = АТК
ТАРА = 101011101 = ТЛТ
Ответ. РАК
===== PascalABC.NET =====
№1
begin
var n := ReadInteger;
var a := SeqRandomReal(n, -99, 99).Select(p -> Round(p,1)).ToArray;
a.Println;
var ic := n div 2;
if a[ic] > a[ic+1] then
a[ic] := 1
else if a[ic] = a[ic+1] then
a[ic] := 0
else
a[ic] := (a[n-1] + a[n-2])/2;
a.Println
end.
№2
begin
var (a, x) := ReadReal2('Введите а и х:');
var y: real;
if x < 0 then
y := 2 + x
else if x = 0 then
y := 3 * a - 1
else
y := a + x;
Print(y)
end.