Исполнитель Чертѐжник перемещается на координатной - вопрос №13231663 от girl148 03.09.2022 09:28

Question

Информатика: Исполнитель Чертѐжник перемещается на координатной плоскости, оставляя след в виде линии. Чертѐжник может выполнять команду Сместиться на (a, b) (где a, b – целые числа), перемещающую Чертѐжника из точки с координатами (x, y) в точку с координатами (x + a, y + b). Если числа a, b положительные, значение соответствующей координаты увеличивается, если отрицательные – уменьшается. Например, если Чертѐжник находится в точке с координатами (4, 2), то команда Сместиться на (2, –3) переместит Чертѐжника

girl148 · Answer

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,n,i,s:integer;
begin
write('Число элементов последовательности ');
readln(n);
for i:=1 to n do begin
write(i,' элемент последовательности = ');readln(a);
if (a mod 2 <>0) then s:=s+a;
end;
writeln('Сумма нечетных = ',s);
end.

Тестовое решение:
Число элементов последовательности 5
1 элемент последовательности = 3
2 элемент последовательности = 2
3 элемент последовательности = 4
4 элемент последовательности = 1
5 элемент последовательности = 5
Сумма нечетных = 9