Найти произведение всех целых чисел заданного диапазона.Опишите функцию:function...

July 2022 1 7 Report

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

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

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

Answers & Comments

федосик5 123456789101112131415var 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.

7 votes Thanks 0

vvoditsya stroka sostoyashaya iz tryoh slov slova otdelyayutsya drug ot druga rovno od427662e8960f300e7d73476f47792712 18672

Answer

AngelinaSuhonosova July 2022 | 0 Ответы

Answers & Comments

kak postupit v shkolu svoej mechty

proizvedenie dvuh posledovatelnyh naturalnyh chisel bolshe ih summy na 109 najcb48d28efd9fbb95b209205ebe03a195 37739

zadacha raspechatat vse prostye chisla v zadannom diapazone format vvoda na vho

pomogite ochen srochno63cda3290b71fcc3608f60b37e3ba5bf 95604

v obshem vot mozhno tolko obyasneniem

vvoditsya stroka sostoyashaya iz tryoh slov slova otdelyayutsya drug ot druga rovno od427662e8960f300e7d73476f47792712 18672

kto mozhet pomoch geometriya 8 klass okruzhnosti

zadacha podschitat summu 1 2 3 n gde naprimer 5 faktorial chisla5ba0e942daa732bbbe47ea1b9cef4d55 74575

tex]...

reshite na pashalezadachanajti kolichestvo chetnyh cifr naturalnogo chislaformat v

рекомендуемые вопросы

Helpful Links

Helpful Social