Question

ввели трехзначное число, определить есть в нем повторяющиеся цифры.паскаль

Answer 1

var
e : Integer;
begin

Write('Введите число: ');
Readln(e);


if ((e div 100) = (e mod 100 div 10)) or
((e div 100) = (e mod 10)) or
((e mod 100 div 10) = (e mod 10)) then
Write('В числе ', e, ' есть повторяющиеся цифры!')
else
Write('В числе ', e, ' нет повторяющихся цифр');

Readln;
end.

 

Answer 2

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

Алгоритм:

1. Считать трехзначное число с помощью оператора `ReadLn`. 2. Разделить число на отдельные цифры, используя операции деления и остатка от деления. 3. Сравнить каждую цифру с остальными цифрами, чтобы определить, есть ли повторяющиеся цифры. 4. Если найдены повторяющиеся цифры, вывести сообщение об их наличии. В противном случае, вывести сообщение о их отсутствии.

Пример кода на Pascal:

```pascal program CheckRepeatedDigits; 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('В числе нет повторяющихся цифр.'); end. ```

Пожалуйста, обратите внимание, что данный код предоставлен в качестве примера и может быть доработан или оптимизирован в зависимости от конкретных требований и контекста вашей задачи.

Примечание: Данный ответ основан на информации из источников и