Программа для Pascal.
PROGRAM Z;
USES CRT;
VAR
A,B:INTEGER;
M:ARRAY[1..10] OF INTEGER;
BEGIN
CLRSCR;
WRITELN('VVEDITE ELEMENTY');
FOR A:=1 TO 10 DO READLN(M[A]);
WRITELN('CHETNIE ELEMNTY : ');
FOR A:=1 TO 10 DO IF A MOD 2 = 0 THEN WRITELN (M[A]);
READKEY
<span>END.</span>
Число различных ключей шифра "поворотная решетка" при четных значениях n равно 4<span>n2/4</span><span>.</span>
101 0100 1010(2) = 54A(16)
BABA(16) = 1011 1010 1011 1010(2)
110 0011 0110(2) = 636(16)
CACA(16) = 1100 1010 1100 1010(2)
Ответ:
case m / 2 + 1 of // значения в case должно быть целым
Объяснение:
Ответ:41 раз.
как сделал:
////////////////////
var k, i, n: Integer;
begin
n:=1;
k:=8;
while k>0 do
begin
i:=10;
while i<15 do
begin
writeln('Мне нравится паскаль');
n:=n+1 ;
i:=i+1;
end;
k:=k-1
end;
writeln(n);
end.