На 4) на берегу бурной реки встретились горилла с двумя детьми и шимпанзе с двумя детьми. к берегу прибилось бревно, которое вмещает только двух обезьян, но, во-первых, бревном могут только взрослые особи, а во-вторых, если на бревне или на берегу горилл будет больше, чем шимпанзе, то они их съедят. как всем обезьянам благополучно переправиться? запишите алгоритм переправы.

1. 1. количество чисел в базисе

2. 2. значение каждой цифры зависит от ее позиции в числе

3. 1. первичная

4. 2. 0-7

5. 3. 1111

6. 3. шиной

7. 4. на машинном языке (в двоичном коде).

8. 5. тактовой частоты процессора.

9. 6. быстродействие, объем памяти, разрядность.

10. 5. Совокупность проводящих каналов для передачи сигналов между микропроцессором и аппаратными устройствами.

11. 4. регистром;

12. 2. АЛУ, УУ, ОП, сопроцессор;

13. 2. Производит арифметические и логические действия над операндами;

Объяснение:

Усложнённый вариант(всё работает исправно,при вводе больше или меньше 3 чисел выводится сообщение "Это не трёхзначное число!"):

var
i,a,d:integer;
s:string;
begin
writeln('Введите трёхзначное число ');
read(s);
d:=length(s);
if d<>3 then
write('Это не трёхзначное число!');
if d=3 then
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
write('Да')
else
write('Нет');
end.

Простой вариант(выводится ошибка если цифр больше или меньше трёх!):

var
i,a,d:integer;
s:string;
begin
writeln('Введите трёхзначное число ');
read(s);
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
write('Да')
else
write('Нет');
end.

Даю 2 варианта, так-как незнаю,проходили ли вы функцию  "length" или нет.
Если нет,то препад заподозрит что вы списали откуда нибудь или вам кто-то подсказал.