Question

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

Answer 1

Ответ:

program z1;

var a,m:integer;

begin

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

readln(a);

m:=a mod 10;

if a div 100 < m then m:=a div 100;

if a div 10 mod 10 < m then m:=a div 10 mod 10;

write('Минимальная цифра числа: ',m)

end.

Объяснение:

div - результат целочисленного деления

mod - остаток от целочисленного деления  

Вводим число

Присваиваем переменной m значение последней цифры числа

Сравниваем переменную m  с первой цифрой числа, если первая цифра числа меньше переменной m, то присваиваем переменной m значение первой цифры числа

Сравниваем переменную m  со второй цифрой числа, если вторая цифра числа меньше переменной m, то присваиваем переменной m значение второй цифры числа

Выводим переменную m

Answer 2

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

pascalCopy code
program MinDigit;
var
  number, digit, minDigit: Integer;
begin
  // Ввод трехзначного числа с клавиатуры
  Write('Введите трехзначное число: ');
  Readln(number);

  // Проверка, что введено трехзначное число
  if (number < 100) or (number > 999) then
  begin
    writeln('Введено некорректное число. Пожалуйста, введите трехзначное число.');
    exit;
  end;

  // Инициализация переменной minDigit первой цифрой числа
  minDigit := number mod 10;

  // Перебор оставшихся цифр числа и поиск минимальной
  number := number div 10;
  while number > 0 do
  begin
    digit := number mod 10;
    if digit < minDigit then
      minDigit := digit;
    number := number div 10;
  end;

  // Вывод результата
  writeln('Минимальная цифра в числе: ', minDigit);
end.

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