В программе кумир написать дату 10 05 2006

использовать Чертежник

алг

нач

сместиться в точку (1, 1)

опустить перо

сместиться в точку (2, 2)

сместиться в точку (2, 0)

поднять перо

сместиться в точку (3, 0)

опустить перо

сместиться в точку (3, 2)

сместиться в точку (4, 2)

сместиться в точку (4, 0)

сместиться в точку (3, 0)

поднять перо

сместиться в точку (6, 0)

опустить перо

сместиться в точку (6, 2)

сместиться в точку (7, 2)

сместиться в точку (7, 0)

сместиться в точку (6, 0)

поднять перо

сместиться в точку (9, 2)

опустить перо

сместиться в точку (8, 2)

сместиться в точку (8, 1)

сместиться в точку (9, 1)

сместиться в точку (9, 0)

сместиться в точку (8, 0)

поднять перо

сместиться в точку (11, 2)

опустить перо

сместиться на вектор (1,0)

сместиться на вектор (0,-1)

сместиться на вектор (-1,-1)

сместиться на вектор (1,0)

поднять перо

сместиться в точку (13, 2)

опустить перо

сместиться на вектор (1,0)

сместиться на вектор (0,-2)

сместиться на вектор (-1,0)

сместиться на вектор (0,2)

поднять перо

сместиться в точку (15, 2)

опустить перо

сместиться на вектор (1,0)

сместиться на вектор (0,-2)

сместиться на вектор (-1,0)

сместиться на вектор (0,2)

поднять перо

сместиться в точку (18, 2)

опустить перо

сместиться на вектор (-1,-1)

сместиться на вектор (0,-1)

сместиться на вектор (1,0)

сместиться на вектор (0,1)

сместиться на вектор (-1,0)

поднять перо

сместиться в точку (-1, -1)

кон

Объяснение:

Смотри картинку

Его можно рассматривать как систему, состоящую из подсистем «аппаратное обеспечение», «программное обеспечение», «информационные ресурсы»Подсистема аппаратного обеспечения выступает в качестве надсистемы для устройств ввода, обработки, хранения и вывода информации.

Операционная система — подсистема программного обеспечения и надсистема, в состав которой входят системные и служебные программы.

Система информационных ресурсов включает в себя системы текстовых и графических файлов, звуковых файлов, файлов с видеоинформацией и т. д.

//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