Найти произведение всех целых чисел заданного диапазона.

Опишите функцию:

function CalcProizv (Nachalo, Konec: integer) : longint;

Question

Информатика

Геннадьич

1 декабря, 10:06

Найти произведение всех целых чисел заданного диапазона.

Опишите функцию:

function CalcProizv (Nachalo, Konec: integer) : longint;

+4

Ответы (1)

Знаете ответ на вопрос?

Коля · 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.

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

Найти произведение всех целых чисел заданного диапазона.

Опишите функцию:

function CalcProizv (Nachalo, Konec: integer) : longint;