Здравствуй можете написать конспект по информатике стр

Объяснение:

1)  

var a,b,x,i:integer;

begin

 readln(a);

 x := 0;

 for i := 1 to a do

 begin

   readln(b);

   if (b div 100 > 0) and (b div 100 < 10) and (b mod 2 = 0) then          

   x := x+b;

 end;

 if x <> 0 then  

   writeln(x)

 else  

   writeln('NO')

end.

2)

var a,b,x,i,c:integer;

begin

 readln(a);

 x := 0;

 c :=0;

 for i := 1 to a do

 begin

   readln(b);

   if ((b mod 10 = 4 ) or (b mod 100 = 4)) and (b mod 8 = 0 ) then

   begin

   c:=c+b;

   x := x+1;

   end;

 end;

 writeln(c/x);

 writeln(x)

end.

Держи, использовал вектор, так удобнее, надеюсь, что уже вектор.

Объяснение:

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

алг  

нач

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

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

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

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

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

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

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

поднять перо

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

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

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

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

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

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

поднять перо

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

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

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

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

поднять перо

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

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

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

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

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

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

поднять перо

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

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

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

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

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

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

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

поднять перо

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

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

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

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

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

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

поднять перо

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

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

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

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

кон