Question

Найти произведение всех целых чисел заданного диапазона.Опишите функцию:function CalcProizv(Nachalo, Konec: integer): longint;

Answer 1

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 var   n: Longint;   m, d, s: Integer; begin   Write('Введите число: '); ReadLn(n);   m:=n mod 10;   while n>0 do begin     d:=n mod 10; n:=n div 10;     if m=d then Inc(s,d)     else if m>d then begin       m:=d; s:=d;     end;   end;   WriteLn('Сумма наименьших цифр: ', s); end.

Answer 2

Функция CalcProizv принимает два целых числа - Nachalo и Konec, которые задают диапазон целых чисел. Функция вычисляет произведение всех целых чисел в этом диапазоне и возвращает результат в виде переменной типа longint.

Пример реализации функции на языке Pascal:

function CalcProizv(Nachalo, Konec: integer): longint;
var
  i: integer;
  proizv: longint;
begin
  proizv := 1; // Начальное значение произведения

// Перебираем все целые числа в диапазоне
  for i := Nachalo to Konec do
  begin
    proizv := proizv * i; // Умножаем текущее число на произведение
  end;

Result := proizv; // Возвращаем результат
end;

Пример использования функции:

var
  nachalo, konec: integer;
  proizv: longint;
begin
  // Ввод диапазона
  writeln('Введите начало диапазона:');
  readln(nachalo);
  writeln('Введите конец диапазона:');
  readln(konec);

// Вычисление произведения
  proizv := CalcProizv(nachalo, konec);

// Вывод результата
  writeln('Произведение всех чисел в диапазоне: ', proizv);
end.

Например, если ввести начало диапазона 1 и конец диапазона 5, то функция вычислит произведение всех чисел от 1 до 5, то есть 1 * 2 * 3 * 4 * 5 = 120. В результате будет выведено "Произведение всех чисел в диапазоне: 120".