начало
делим на 2
есть остаток нет остатка
возводим в куб возводим в кводрат
конец
1) <span>D:\Материалы к урокам\10 класс\Лекции\Введение
2) </span>make.cpp, name.c, age.pc, name.cpp >>> *a?e.*
Ответ: <span>1111011111001011
Переводим в десятичную:
</span>F7CB16 = 15∙163+7∙162+12∙161+11∙160 = 61440+1792+192+11 = 6343510<span>
Потом это число переводим в двоичную:
</span>63435/2=<span>31717 (остаток 1)
</span>31717/2=<span>15858 (остаток 1)
</span>15858/2=<span>7929 (остаток 0)
</span>7929/2=<span>3964 (остаток 1)
</span>3964/2=<span>1982 (остаток 0 )
</span>1982/2=<span>991 (остаток 0)
</span>991/2=495 <span>(остаток 1)
</span>495/2=<span>247 (остаток 1)
</span>247/2=<span>123 (остаток 1)
</span><span>123/2=61 (остаток 1)
</span>61/2=30 (остаток 1)
30/2=15 (остаток 0)
15/2=7 (остаток 1)
7/2=3 (остаток 1)
3/2=1 (остаток 1)
Последний ответ 3/2=1 - эту единицу берём и наоборот собираем остатки.
Смотри.
икс не кратно 7 записывается так:
x mod 7≠0
пример:
If (x mod 7≠0) then begin
mod это деление нацело, то есть
14 mod 7=0 - 14 делится нацело на 7.
только вместо знака ≠ надо писать знаки
![< >](https://tex.z-dn.net/?f=+%3C++%3E+)
если не сработает, попробуй
![> <](https://tex.z-dn.net/?f=++%3E++%3C+)
Обычно размер указывают, раз нету, взял по дефолту 10(Const N=10). И диапазон какой-то странный, думаю имелось введу (-5;5)
Program G;
Uses Crt;
Const N=10;
Var i: integer; mass: array [1..n] of integer;
Begin
Randomize;
ClrScr;
Writeln('Исходный массив из 10 чисел диапозона (-5;5):');
For i:=1 to N do
Begin
Mass[i]:=Random(11)-5;
Write(Mass[i]:4);
End;
Writeln;
Writeln('Исходный массив после замены всех отрицательны на -1:');
For i:=1 to N do
If mass[i]<0 then mass[i]:=-1;
For i:=1 to N do write(Mass[i]:4);
Readln;
<span> End.</span>