Задание 15. Создавать и выполнять программы для заданного исполнителя (вариант задания 15.1) или на универсальном языке программирования (вариант задания 15.2): все задания

var a, s, n: integer;
begin
     s:=0; n:=0;
     readln(a);
     while a<>0 do begin
          if (a mod 8 = 0) then
             begin
              s := s + a;
              n := n + 1;
             end;
          readln(a); end;
     if n > 0 then writeln(s/n :5:1)
                else writeln(’NO’);
end.

var a, s, n: integer;
begin
     s:=0; n:=0;
     readln(a);
     while a<>0 do begin
          if (a > 9) and (a <100) then 
               begin
                    s := s + a;
                    n := n + 1; 
               end;
               readln(a); end;
          if n > 0 then writeln(s/n :5:1)
                    else writeln(’NO’);
end.

var n,i,a,k: integer;
begin
     readln(n);
     k := 0;
     for i := 1 to n do
       begin
         readln(a);
           if (a mod 10 = 9) then k := k + 1;
       end;
     writeln(k)
end.

var n,i,a,s: integer;
begin
     readln(n);
     s := 0;
     for i := 1 to n do
       begin
         readln(a);
           if (a mod 10 = 8) then s := s + a;
       end;
     writeln(s)
end.

var a, s: integer;
begin
  s:=0;
  readln(a);
  while a<>0 do begin
     if (a mod 7 = 0) and (a mod 10 = 0) then
        s := s + a;
      readln(a); end;
  writeln(s)
end.

var a, s: integer;
begin
     s:=0;
     readln(a);
     while a<>0 do begin
        if (a mod 4 = 0) and (a mod 10 = 2) then
               s := s + a;
          readln(a); end;
     writeln(s)
end.

<b>вправо</b>

<b>нц пока не сверху свободно</b>
    <b>закрасить</b>
    <b>вправо</b>
<b>кц</b>

<b>нц пока сверху свободно</b>
    <b>вправо</b>
<b>кц</b>

<b>нц пока справа свободно</b>
    <b>закрасить</b>
    <b>вправо</b>
<b>кц</b>

<b>нц пока не справа свободно</b>
    <b>закрасить</b>
    <b>вниз</b>
<b>кц</b>

<b>нц пока справа свободно</b>
    <b>вниз</b>
<b>кц</b>

<b>нц пока не справа свободно</b>
    <b>закрасить</b>
    <b>вниз</b>
<b>кц</b>

var n,i,a,k: integer;
begin
  readln(n);
  k := 0;
  for i := 1 to n do
  begin
      readln(a);
      if (a mod 4 = 0) and (a mod 7 <> 0) then k:=k+1;
  end;
  writeln(k)
end.

var a, N, i, sum, num : integer;
begin
	sum := 0; num := 0;
	readln(N);
	for i:=1 to N do begin
		readln(a);
		if a > 0 then begin
			num := num + 1;
			sum := sum + a; end;
	end;
	writeln(sum / num :0:1);
	writeln(num);
end.

var a, N, i, num, sum: integer;
begin
	num:=0; sum:=0;
	readln(N);
	for i:=1 to N do begin
		readln(a);
		if a >= 8 then begin
			num := num + 1;
			sum := sum + a; end;
	end;
	writeln(num);
	writeln(sum / num)
end.

var a, s: integer;
begin
   s:=0;
   readln(a);
   while a<>0 do begin
      if (a mod 8 = 0) and (a > 9) and (a <100) then
         s := s + a;
      readln(a); end;
   writeln(s)
end.

var a, s: integer;
begin
   s:=0;
   readln(a);
   while a<>0 do begin
      if (a mod 5 = 0) or (a mod 9 = 0) then
         s := s + a;
      readln(a); end;
   writeln(s)
end.