Считаем степени двойки(с права на лево)
1+2+4+0+16+32=110111
1+2+0+8+16=11011
получаем:
110111-11011=55-27=28
1)
Program n1;
var x: real;
begin
readln(x);
if(x mod 2=0) then do writeln('четное);
else
writeln('нечетное');
end.
2)
Program n2;
var x, y: real;
begin
if(x mod 2=0) or (y mod 2=0) then do writeln('да');
else
writeln('нет');
end.
3)
Program n3;
var x: real;
begin
readln(x);
if(x<8) and (x>-8) then do writeln('нет');
else
writeln('да');
end.
Задача 1). Для исполнителя Чертежник в этой задаче надо подставить вместо x значение a, аналогично для y подставляем значение b
получим:
<span>(X+2, Y+9)
</span>Задача 2). Аналогично для второго задания<span>. Только надо начинать со второй команды, чтобы вернуться в точку (1,1).
переведи в точку(4,2)
переведи в точку(7,6)
переведи в точку (1,1)
</span>
Задача 3)<span>. </span>В этой задаче надо просто подставить числовые значения из левого столбца таблицы в правый столбец:<span>
(x+1,y+4)
(x+6,y+8)
(x+2,y-5)
Задача 4). В этой задаче необходимо сдвигать перо чертежника по вертикали и по горизонтали.
сдвинь на вектор(0,9)</span>
<span>сдвинь на вектор(9,0)</span>
<span><span>сдвинь на вектор(0,9)</span>
</span>
ОТДЕЛ Задание+;
ПЕР
A: РЯД 10 ИЗ ЦЕЛ;
сч, произведение: ЦЕЛ;
УКАЗ
произведение := 0;
ОТ сч := 0 ДО РАЗМЕР(A) - 1 ВЫП
ЕСЛИ A[сч] > 0 ТО
произведение := произведение * A[сч]
КОН
КОН
КОН Задание.
Мин.: 8, макс.: 72 как то так