Question

Срочно!!! напишите программу на языке Паскаль Условие: Напишите программу которая вводит с клавиатуры трехзначное число и выводит ответ"да",если среди его цифр нет одинаковых

Answer 1

// PascalABC.NET

begin

   if ReadInteger.ToString.Distinct.Count = 3 then

     Print('да')

   else

     Print('нет')

end.

Answer 2

Конечно, вот пример программы на языке Паскаль, который выполняет указанное условие:

pascalCopy code
program NoRepeatingDigits;

var
  number: integer;
  digit1, digit2, digit3: integer;

begin
  writeln('Введите трехзначное число:');
  readln(number);

  if (number < 100) or (number > 999) then
  begin
    writeln('Введенное число не является трехзначным.');
  end
  else
  begin
    digit1 := number div 100;
    digit2 := (number div 10) mod 10;
    digit3 := number mod 10;

    if (digit1 <> digit2) and (digit1 <> digit3) and (digit2 <> digit3) then
    begin
      writeln('Да');
    end
    else
    begin
      writeln('Нет');
    end;
  end;
end.

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