Вычислить произведение чисел, кратных 13, из 100 придуманных компьютером случайных ??исел в диапазоне 0-100
?исел в диапазоне 0-100
Ответы:
04-11-2017 02:14
Var i, k: integer; pr: int64;begin randomize; pr := 1; for i := 1 to 100 do begin k := random(101); write(k, ); if (k mod 13 = 0) and (k <> 0) then pr := pr * k; end; writeln; write(pr);end.
Также наши пользователи интересуются:
Правда ли что при князе Иване даниловиче Москва была деревянной и в ней нередко слMake up a dialogue on the following situation: You ask your friend what marks she got at the entrance ex ams and what subjects she studies at the Univ
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Вычислить произведение чисел, кратных 13, из 100 придуманных компьютером случайных ?» от пользователя Батыр Ковальчук в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!