Ответ:
№1
нц
пока не снизу свободно
закрасить
вправо
кц
нц
пока снизу свободно
вправо
кц
нц
пока справа свободно
закрасить
вправо
кц
нц
пока не справа свободно
закрасить
вверх
кц
нц
пока справа свободно
вверх
кц
нц
пока не справа свободно
закрасить
вверх
кц
var n, s, k, g: integer;
begin
s:=0;
readln(n);
for k:=1 to n do
begin
readln(g);
if (g mod 6 = 0) then
s:=s+g;
end;
writeln(s);
end.
№2
нц
пока не сверху свободно
закрасить
влево
кц
нц
пока сверху свободно
влево
кц
закрасить
нц
пока слева свободно
закрасить
влево
кц
нц
пока не слева свободно
закрасить
вниз
кц
нц
пока слева свободно
вниз
кц
нц
пока не слева свободно
закрасить
вниз
кц
Решение:
var n, k, g, h: integer;
begin
h:= 30000;
readln(n);
for k:=1 to n do
begin
readln(g);
if (g mod 3 = 0) and (g < h) then
h:=g;
end;
writeln(h);
end.
№3
нц
пока не снизу свободно
закрасить
влево
кц
нц
пока снизу свободно
влево
кц
нц
пока слева свободно
закрасить
влево
кц
нц
пока не слева свободно
закрасить
вверх
кц
нц
пока слева свободно
вверх
кц
нц
пока не слева свободно
закрасить
вверх
кц
Решение
var n, s, k, g: integer;
begin
s:=0;
readln(n);
for k:=1 to n do
begin
readln(g);
if (g mod 4 = 0) then
s:=s+1;
end;
writeln(s);
end.
№4
нц пока не сверху свободно
закрасить
вправо
кц
нц пока сверху свободно
вправо
кц
нц пока справа свободно
закрасить
вправо
кц
нц пока не справа свободно
закрасить
вниз
кц
нц пока справа свободно
вниз
кц
нц пока не справа свободно
закрасить
вниз
кц
Решение
var k, n, a, amax: integer;
begin
amax:=0;
readln(n);
for k:=1 to n do
begin
readln(a);
if (a mod 5 = 0) and (a>amax) then
amax:=a;
end;
writeln(amax);
end.
№5
нц
пока не справа свободно
закрасить
вниз
кц
нц
пока справа свободно
вниз
кц
нц
пока снизу свободно
закрасить
вниз
кц
нц
пока не снизу свободно
закрасить
влево
кц
нц
пока снизу свободно
влево
кц
нц
пока не снизу свободно
закрасить
влево
кц
Решение
var n, s, k, g: integer;
begin
s:=0;
readln(n);
for k:=1 to n do
begin
readln(g);
if (g mod 6 = 0) then
s:=s+1;
end;
writeln(s);
end.