Ответ:Блин,тоже олимпиада.Я тоже не могу это сделать.А ты сделал 1,3,4
Объяснение:
В таблице 5 x 5 имеется 5 строк и 5 столбцов. В <span>каждой строке возможны 4 пары соседних клеток. </span>
В каждом столбце возможны 4 пары соседних клеток.
<span>Всего имеется 4·5+5·4 = 20+20 = 40 соседних клеток. </span>
В <span>них входят соседние пары черных клеток, соседние пары белых клеток и соседние пары разных цветов. </span>
<span>Обозначим искомое число соседних пар белых клеток через x. </span>
<span>По условию </span>
40 = 14+11+x
40=25+ x
<span>х = 15. </span>
Имеется 15 пар соседних клеток белого цвета.
<span>Ответ: 15</span>
Начальный каталог:
4) C:\учёба\математика\2013\Расписание
Program zadacha;vara: array[1..1000] of integer;i,n,k: integer;beginwriteln('vvedite kol-vo elementov massiva');readln(n);for i:=1 to n do begina[i]:=random(1000);write(a[i]:6);end;
k:=0;for i:=2 to n do beginif (a[i] mod 2<>0) and (i mod 2 = 0) then beginwriteln();writeln(a[i], ' N ',i);k:=k+1;end;end;writeln();writeln('kol-vo elementov =',k);end.
program zadacha;vara: array[1..1000] of integer;i,n,sum_pol,sum_otr: integer;beginwriteln('vvedite kol-vo elementov massiva');readln(n);for i:=1 to n do begina[i]:=random(1000)-500;write(a[i]:6);end;
sum_pol:=0;sum_otr:=0;for i:=1 to n do beginif a[i]>0 then sum_pol:=sum_pol+a[i];end;writeln();writeln('udvoennaya summa polojit. chisel = ', sum_pol*2);
for i:=1 to n do beginif (a[i]<0) and (i mod 2 <> 0) then sum_otr:=sum_otr+a[i];end;
writeln('summa otricat. i nechetn. chisel = ', sum_otr);end.