Program n1;
var a: array[1..10] of integer;
i: integer;
p: real;
begin
randomize;
write('массив: ');
p:=1;
for i:=1 to 10 do
begin
a[i]:=random(41)-20;
write(a[i],' ');
if a[i]<10 then p:=p*a[i];
end;
writeln;
write('произв. <10: ',p);
end.
Одну единственную
for (интератор начала, условие выхода, шаг) { }
Ответ:
сместиться на (12, - 16)
Объяснение:
Сложим координаты по х и у (отдельно)
х = - 1 + 2 + 2 = 3
у = - 5 + (- 2) + 3 = - 5 - 2 + 3 = - 4
Умножим на количество повторений
х = 3 * 4 = 12
у = - 4 * 4 = - 16
После выполнения алгоритма
повтори 4 раз
сместиться на (-1, -5)
сместиться на (2, -2)
сместиться на (2,3)
конец
Чертёжник сместился на (12, - 16)
Значит весь алгоритм можно заменить на команду сместиться на (12, - 16)
Таблица значений тригонометрических функций,
название словаря - 17 бит (если с пробелом , без пробела 16 бит)
составитель - 11 бит
издательство - 12бит