For i := 1 to N do begin
if ((a[i]+a[i+1]) mod 2=0)and((a[i]*a[i+1])>40) then
k:=k+1;
end;
<span>writeln(k);</span>
Уже была такая задача.
Столбиком:
10011
110111
=
1001010
Найдем координаты, в которые переместился Чертежник: суммируем координаты "x" вместе с "x", "y" вместе с "y". При этом, сумму каждой оси умножаем на "4", так как цикл повторяется четыре раза.
x = 4*(2 + (-2) + (-2)) = 4*(-2) = -8.
y = 4*(3 + 1 + (-2)) = 4*2 = 8.
Чтобы Чертежник вернулся в исходную точку, его координаты должны стать (0,0). Для этого полученные значения "x" и "y" умножаем на "-1". Получаем команду "Сместиться на (8,-8)".
Ответ: 4.
Var i : Integer;
Begin
For i:=100 to 999 do
If i=(sqr(i) mod 1000) then Writeln(i,' * ',i,' = ',sqr(i));
end.
Результат:
376 * 376 = 141376
625 * 625 = 390625
В случае, если можно совместить два класса вместе (например, на втором уроке провести занятие для 10а и 10б одновременно), то минимально нужны 2 учителя информатики (одновременно проводятся только 2 урока).
Если классы совместить нельзя, то три учителя (смотрим на максимальное количество закрашенных клеток в строках)