Ответ:
Суть программы следующая: у нас есть массив Dat, состоящий из 10 элементов. Значения каждого элемента нам уже известно, ведь их ввели прямо в коде программы. И так, цикл for k:=1 to 10 do проверяет, больше ли текущий элемент массива, чем 12, если да, то переменная m увеличивается на 1
От Dat[1] до Dat[10] больше 12 всего 7 элементов. Значит на экран выведется 7.
Ответ: 7.
Объяснение:
Ответ: 3
Чтобы узнать куда переместился Чертёжник надо сложить координаты по осям и умножить на количество повторов.
Сложим координаты по оси X:
x = 11 * (–3 + 7 + 1)
x = 11 * 5
x = 55
Сложим координаты по оси Y:
y = 11 * (–3 + (–3) + 5)
y = 11 * (–3 – 3 + 5)
y = 11 * (–1)
y = –11
Таким образом, Чертёжник окажется в точке (55, –11). Следовательно, для того, чтобы Чертёжник вернулся в исходную точку ему нужно выполнить обратную команду Сместиться на (–55, 11). (Чтобы Чертёжник вернулся в исходную точку координаты в сумме должны давать 0.)
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadlnString('>').ToWords()[1].Length)
end.
<u>Пример</u>
> А роза упала на лапу Азора
4
0100010001010000010000001000 в двоичной системе равно
Ответ: 4450408 в шестнадцатиричной
Var a: integer;
begin
readln(a);
if (a>9) and (a<100) and (a mod 7=0)
then write('число кратно 7') else
if (a mod 7=0) then
write('число не двузначное, но кратно семи')
else write('число не кратно 7');
end.
