Давай свой вопрос.все оветять на твой вопрос .
В таких задачах идем с конца меняя знаки операций на противоположные, затем собираем алгоритм с конца меняя знаки операций:
50 / 2
25 - 1
24 / 2
12 / 2
6 / 2
3 - 1
2 / 2
1-1
0
Получим :21211121
<span>Система команд исполнителя «Чертежник» включает 6 команд:
</span>опустить пероподнять перосместиться в точку (X, Y)сместиться на вектор (dX, dY)установить цвет (цвет)надпись (ширина, текст)
Var
a, n, i, s: integer;
begin
for i := 1 to 10 do
begin
readln(a);
if a mod 2 = 0 then begin
s := s + a;n := n + 1;
end;
end;
writeln('Сумма четных = ', s);
writeln('Количество четных = ', n);
writeln('Среднее арифметическое четных', s / n);
end.