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.