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

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

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

Ответы (1)

Лачин 09.11.2025 5
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;