1) с
2) b
3) b
4) b
5) b
6)a
7) a
8) a
9) b
10) b
11) e
12) b
13) c
14) b.d.e
Зубр - I
Зубр & Тур - II
Тур - III
Решение: I+III - II (18000+12000)-5000=25000
Var
c : integer;
k : char;
begin
c := 0;
while not eoln do
begin
read (k);
if k = ' ' then
begin
if c > 10 then
begin
write ('YES');
halt;
end;
c := 0;
end
else
c := c + 1;
end;
if c > 10 then write ('YES') else write ('NO');
end. <span>
</span>
Можно разместить посты в соц.сетях таких как:
Так же на различных форумах на разные темы!!!
Программа для среды программирования Кумир:
использовать Робот
алг
нач
лог прав=да
цел x=0, y=0
нц
если (mod(div(y,2),2)=0) = (mod(x,2)=0) то закрасить все
выбор
при прав и справа свободно: вправо; x:=x+1
при не прав и слева свободно: влево; x:=x-1
при сверху свободно: вверх; прав:=не прав; y:=y+1
иначе выход
все
кц
кон