На paskal.Створити програму що шукає найменшу цифру в чотири цифровому числі.

Автор: nicheukhinamari

Предмет: Информатика

Уровень: 10 - 11 класс

Ответов к вопросу: 1

drimurr12345

Ответить

03.08.2024 | 17:06

Ответ:
Ось приклад програми на 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.