Самый хитрый способом это перевести в 10, провести действия и ответ в двоичную.
10010000 =(1*2^7)+(1*2^4) = 144
110 = (1*2^2)+(1*2^1)+(0+2^0)=6
144/6=24 - ответ переведем в двоичную
24=11000
10010000/110=11000
Вот и все =)
Div - это целочисленное частное, т.е. если твое число нацело не делится на какое то другое число, опирацией div ты получишь целочисленное частное, например: 11 div 5 = 11 не делится на 5, ближайшее число которое делится на 5 это 10, значит 11 div 5 = 10
mod - это целочисленный остаток, рассмотрим тот же пример, 11 mod 5 = 11 не делится на 5, ближайшее число которое делится на 5 это 10, значит 11 mod 5 = 11- 10= 1
1. 26
2. 6
3. 50
4. 1
5. 1
6. 1
7. 8
Program exapmle2;
var x,y,k:integer;
begin
writeln('Эта программа определяет, число соседств чисел с одинаковыми знаками');
write('Введите число:');
read(x);
y:=x;
write('Введите число:'); //добавить эти 2 строки
read(x);
k:=0;
while x<>0 do // поменять у на х
begin
//if x*y<0 then inc(k); убрать эту строку
if x*y>0 then inc(k);
y:=x;
read(x); // изменить у на х
end;
writeln(' Число соседств ',k);
writeln('нажмите Enter для завершения работы программы');
readln;
end.
<u>алг </u>
<u>нач</u>
вещ <em>x</em>, <em>y</em>
ввод <em>x </em>
<em>y</em> := (1 - <em>x</em> ** 2 + 5 * <em>x</em> ** 4) ** 2
вывод <em>y</em>
<u>кон</u>
Из условия неясно, как определяются размеры участков огорода - линейными размерами или площадью. Т.е. что должно быть целым - линейные размеры или площадь? Будем считать, что целыми должны быть линейные размеры.
Это означает, что достаточно среди чисел А и В найти четное и разделить его пополам. В этом случае участок деда будет равен половине огорода. Если оба числа нечетных, деду достанется меньше половины огорода.
var
A,B:integer;
f:Text;
begin
Assign(f,'input.txt');
Reset(f);
readln(f,A,B);
writeln('Размеры участка ',A,', ',B);
if (A mod 2=0) or (B mod 2=0) then writeln('0')
else writeln('1')
end.
Результат решения:
Размеры участка 8, 4
0