Привет! Меня зовут Алексей, и я хотел бы поделиться с вами программой на языке Pascal, которая выполняет все требования, указанные в вашей задаче.pascal
program NumberManipulation;
var
num, temp, digit_sum, digit_product, max_digit, min_digit⁚ integer;
digits⁚ array[1..5] of integer; // предполагаем٫ что число имеет не более 5 цифр
begin
write(‘Введите натуральное десятичное число (не больше 32000)⁚ ‘);
readln(num);
// Заполняем массив цифрами данного числа
temp ⁚ num;
for var i ⁚ 5 downto 1 do
begin
digits[i] ⁚ temp mod 10;
temp ⁚ temp div 10;
end;
// Находим наибольшую и наименьшую цифру
max_digit ⁚ digits[1];
min_digit ⁚ digits[1];
for var i ⁚ 2 to 5 do
begin
if digits[i] > max_digit then
max_digit ⁚ digits[i];
if digits[i] < min_digit then
min_digit ⁚ digits[i];
end;
// Находим сумму и произведение цифр
digit_sum ⁚ 0;
digit_product ⁚ 1;
for var i ⁚ 1 to 5 do
begin
digit_sum ⁚ digit_sum digits[i];
digit_product ⁚ digit_product * digits[i];
end;
writeln('Цифры данного числа⁚ ');
for var i ⁚ 1 to 5 do
write(digits[i], ' ');
writeln;
writeln('Наибольшая цифра⁚ ', max_digit);
writeln('Наименьшая цифра⁚ ', min_digit);
writeln('Сумма цифр⁚ ', digit_sum);
writeln('Произведение цифр⁚ ', digit_product);
end.Когда вы запустите эту программу, она попросит вас ввести натуральное десятичное число (не больше 32000), а затем выполнит следующие действия⁚
1) Из цифр данного числа формируется одномерный целочисленный массив. 2) Определяются наибольшая и наименьшая цифры данного числа. 3) Находятся сумма и произведение цифр, образующих данное число. Программа выводит все найденные результаты. Надеюсь, эта статья была полезной для вас! Если у вас есть еще вопросы, не стесняйтесь задавать. Удачи!