Question

Решить задачу в паскале 1. Дано четырехзначное число. Все ли его цифры разные?

Answer 1

Var a,c1,c2 integer; b: bool; begin b:=true; writeln("Введите четырехзначное число "); readln(a); c1:=a mod 10; a:=a div 10; while(a>0) do begin c2:=a mod 10; a:=a div 10; if c1 <> c2 then b:= false; end; if b=true then writeln("Все цифры данного числа равны") else writeln("Цифры данного числа различны"); end.

Answer 2

Вот пример решения задачи на определение, являются ли все цифры четырехзначного числа разными на языке Pascal:

pascalCopy code
program CheckDistinctDigits;

var
  number: integer;
  digit1, digit2, digit3, digit4: integer;
  allDigitsDistinct: boolean;

begin
  // Ввод четырехзначного числа
  writeln('Введите четырехзначное число:');
  readln(number);
  
  // Разделение числа на отдельные цифры
  digit1 := number mod 10;
  digit2 := (number div 10) mod 10;
  digit3 := (number div 100) mod 10;
  digit4 := (number div 1000) mod 10;
  
  // Проверка на уникальность цифр
  allDigitsDistinct := (digit1 <> digit2) and (digit1 <> digit3) and (digit1 <> digit4) and
                       (digit2 <> digit3) and (digit2 <> digit4) and
                       (digit3 <> digit4);
  
  // Вывод результата
  if allDigitsDistinct then
    writeln('Все цифры числа ', number, ' разные.')
  else
    writeln('Число ', number, ' имеет повторяющиеся цифры.');
  
  readln;
end.

Вы можете скопировать этот код и выполнить его в среде разработки, поддерживающей Pascal, чтобы увидеть результат работы программы.