Ответ:

Ось приклад програми на Pascal, яка знаходить найменшу цифру в чотирьохзначному числі:

program FindSmallestDigit;

var

number, digit, smallest: integer;

begin

writeln('Enter a four-digit number:');

readln(number);

smallest := 9; // Assume the smallest digit is 9

while number > 0 do

begin

digit := number mod 10; // Get the last digit of the number

if digit < smallest then

begin

smallest := digit; // Update the smallest digit if we found a smaller one

end;

number := number div 10; // Remove the last digit from the number

end;

writeln('The smallest digit is: ', smallest);

readln;

end.

У цій програмі ми використовуємо цикл while, щоб ітеруватися по всіх цифрах числа. За допомогою операторів mod і div ми отримуємо останню цифру числа і потім видаляємо її з числа, щоб перейти до наступної цифри. Ми також використовуємо змінну smallest, щоб зберігати найменшу знайдену цифру.

Після завершення циклу ми виводимо найменшу цифру на екран.

Так, є ще один спосіб розв'язання цієї задачі без використання циклів та інших складних структур. Можна розглянути кожну цифру окремо та порівняти її з найменшою цифрою, яку ми знаємо на даний момент. Ось як можна це зробити:

program MinDigit;

var

num, d1, d2, d3, d4, min: integer;

begin

writeln('Enter a four-digit number:');

readln(num);

d1 := num div 1000; { Отримати першу цифру числа }

d2 := (num div 100) mod 10; { Отримати другу цифру числа }

d3 := (num div 10) mod 10; { Отримати третю цифру числа }

d4 := num mod 10; { Отримати четверту цифру числа }

min := d1; { Початкове значення мінімальної цифри }

if d2 < min then

min := d2;

if d3 < min then

min := d3;

if d4 < min then

min := d4;

writeln('The smallest digit is ', min);

end.