Question

Составьте алгоритм, который будет определять есть ли среди цифр заданного целого четырехзначного числа одинаковые. Паскаль программирование

Answer 1

program odinak_v_4zn_ch;

var x,x1,x2,x3,x4:Integer;

begin

read(x);

x4:=x mod 10;

x3:=x mod 100 div 10;

x2:=x mod 1000 div 100;

x1:=x div 1000;

if(x1=x2)or(x1=x3)or(x1=x4)or(x2=x3)or(x2=x4)or(x3=x4)

then

write('yes')

else

write('no')

end.

Answer 2

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

pascalCopy code
program CheckDuplicateDigits;

function HasDuplicateDigits(number: Integer): Boolean;
var
  digits: array[0..9] of Boolean;
  currentDigit, remainder: Integer;
begin
  // Инициализация массива digits
  for currentDigit := 0 to 9 do
    digits[currentDigit] := False;

  // Проверка наличия одинаковых цифр
  while number > 0 do
  begin
    currentDigit := number mod 10;
    if digits[currentDigit] then
    begin
      HasDuplicateDigits := True;
      Exit;
    end;
    digits[currentDigit] := True;
    number := number div 10;
  end;

  HasDuplicateDigits := False;
end;

var
  inputNumber: Integer;
begin
  Write('Введите целое четырехзначное число: ');
  ReadLn(inputNumber);

  if (inputNumber >= 1000) and (inputNumber <= 9999) then
  begin
    if HasDuplicateDigits(inputNumber) then
      WriteLn('В числе есть одинаковые цифры.')
    else
      WriteLn('В числе нет одинаковых цифр.');
  end
  else
    WriteLn('Некорректный ввод. Введите целое четырехзначное число.');

  ReadLn;
end.

Этот алгоритм использует массив digits размером 10, чтобы отслеживать, была ли уже встречена цифра от 0 до 9. Затем он проходит по каждой цифре входного числа, проверяя, была ли она уже встречена. Если встречается одинаковая цифра, функция HasDuplicateDigits возвращает True, в противном случае - False. Программа затем запрашивает у пользователя ввод четырехзначного числа и выводит результат проверки на наличие одинаковых цифр.