Вопрос по информатике:
Найти произведение всех целых чисел заданного диапазона.
Опишите функцию:
function CalcProizv(Nachalo, Konec: integer): longint;
Пожаловаться
- 16.09.2018 23:30
- Информатика
- remove_red_eye 8931
- thumb_up 19
Ответы и объяснения 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.
Пожаловаться
- 17.09.2018 10:01
- thumb_up 29
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы