Алгоритм КВАДРАТ <span> {</span>
покажись;
опусти_перо;
вперед ( 50 );
вправо ( 90 );
вперед ( 50 );
вправо ( 90 );
вперед ( 50 );
вправо ( 90 );
вперед ( 50 );
вправо ( 90 );
<span> }
Алгоритм Звездочки </span> повторить 18 {
вперед 200
налево 100
}
Алгоритм Звезды { вперед ( 60 ); налево ( 10 ); опусти_перо; цикл (10); налево ( 144 ); вперед ( 120 ); конец_цикла; поднять_перо; направо(18); назад(60); }
Var a: array[1..100] of integer;
i, k,n: integer;
begin
writeln('Введите n:');
readln(n);
writeln('Массив:');
for i := n downto 1 do
begin
a[i] := random(100);
write(a[i]:4);
end;
writeln;k:=0;
for i := 1 to n do
if a[i] mod 2 <> 0 then
begin
writeln('Номер первого нечетного = ', i);
k:=1;
break;
end;
if k=0 then
writeln('В массиве нет нечетных элементов');
readln;
end.
14,21,28,35,42,49,56,63,70,77,84,91,98
Ответ:
102
Объяснение:
Для перевода необходимо умножить разряд числа на 2 (потому что из двоичной) в соответствующей ему степень разряда.
Длина числа - 7 разрядов, значит используем степени от 6 до 0