const n = 10;
var a: array [1..n] of integer;
i: integer;
begin
for i:= 1 to n do readln(a[i]);
writeln('В прямом порядке: ');
for i:= 1 to n do write(a[i],' ');
writeln;
writeln('В обратном порядке: ');
for i:= n downto 1 do write(a[i], ' ');
end.
1) 1событие, уменьшает неопредел. в 2 р.
2) 2 бита инф-и
3)8*8=64 64=2^i т.е 6
4)
5) 5 32=2^5
6) 512 2 в 9 степ
7)1 бит
Решать задачу удобнее всего с помощью таблицы. Сначала в таблицу нужно занести информацию, заданную в условии, проставляя знак "-" в соответствующие ячейки. Из постановки задачи следует, что в каждой строке и в каждом столбце этой таблицы может стоять только один "+". Следовательно, ответ задачи определяется сразу после записи всех "-" и этот ответ - Артур. Таблицы - в прилагаемом файле.
Var x1,y1,x2,y2:integer;
begin
write('Первое поле:');
readln(x1,y1);
write('Второе поле:');
readln(x2,y2);
if ((x1+y1)mod 2)=((x2+y2)mod 2)
then writeln('Поля имеют одинаковый цвет')
else writeln('Поля имеют разный цвет');
end.
Пример:
Первое поле:2 3
Второе поле:7 5
Поля имеют разный цвет