Дано натуральное трёхзначное число. Напишите программу, которая определяет: а) есть ли среди цифр данного числа одинаковые;

Для определения, есть ли среди цифр трехзначного числа одинаковые, можно написать следующую программу (пример на Pascal):

program CheckDigits;
var
 number, digit1, digit2, digit3: integer;
begin
 // Ввод трехзначного числа
 writeln('Введите трехзначное число:');
 readln(number);

 // Разделение числа на цифры
 digit1 := number div 100; // Первая цифра (сотни)
 digit2 := (number div 10) mod 10; // Вторая цифра (десятки)
 digit3 := number mod 10; // Третья цифра (единицы)

 // Проверка на наличие одинаковых цифр
 if (digit1 = digit2) or (digit1 = digit3) or (digit2 = digit3) then
 writeln('В числе есть одинаковые цифры')
 else
 writeln('В числе нет одинаковых цифр');

 readln;
end.

Объяснение:

1. Программа запрашивает у пользователя трехзначное число.
2. Затем число разделяется на отдельные цифры: сотни (digit1), десятки (digit2) и единицы (digit3).
3. Далее происходит проверка, есть ли среди этих цифр одинаковые. Если хотя бы одна пара цифр равна друг другу, то выводится сообщение о наличии одинаковых цифр. В противном случае выводится сообщение об отсутствии одинаковых цифр.

Пример:

Если ввести число 121, программа выведет: В числе есть одинаковые цифры, так как первая и третья цифры равны.