Question

ДАЮ 25 Баллов! Pascal. Дано трехзначное число, найти наименьшую цифру. СРОЧНО!!!

Answer 1

Ответ:

program MinNumber;

var

 n, k, kmin, i: Integer;

begin

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

 ReadLn (n);

 if (n >= 100) and (n <=999) then begin

   kmin := 9;

   while n > 0 do begin

     k := n mod 10;

     n := n div 10;

     if k < kmin then

       kmin := k;

   end;

   WriteLn ('Наименьшая цифра = ', kmin);

 end else

   Write ('Это не трёхзначное число.');

 ReadLn;

end.

Answer 2

Наименьшая цифра 34526745587346247894

Answer 3

Спасибо за ваш вопрос! Чтобы найти наименьшую цифру в трехзначном числе на языке Pascal, вы можете использовать следующий код:

pascalCopy code
program FindSmallestDigit;
var
  number, smallestDigit: integer;
begin
  writeln('Введите трехзначное число: ');
  readln(number);

  // Предполагаем, что первая цифра является наименьшей
  smallestDigit := number div 100;

  // Проверяем вторую цифру
  if (number div 10 mod 10) < smallestDigit then
    smallestDigit := number div 10 mod 10;

  // Проверяем третью цифру
  if (number mod 10) < smallestDigit then
    smallestDigit := number mod 10;

  writeln('Наименьшая цифра в числе ', number, ' равна ', smallestDigit);
end.

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

Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.