Усложнённый вариант(всё работает исправно,при вводе больше или меньше 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" или нет.
Если нет,то препад заподозрит что вы списали откуда нибудь или вам кто-то подсказал.
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. Производит арифметические и логические действия над операндами;
Объяснение: