С клавиатуры вводятся 17 чисел. Найти произведениеположительных чисел не делящихся на 17. Сделать в Турбо Паскале, методом repeat...until

Ответы:

КУРАЛАЙ ТУРЧЫНИВ

06-09-2016 05:36

CONST N = 17;varx,i,p:integer;beginp:=1;repeat read(x);if (x mod N <> 0) and (x > 0) then p:=p*x;inc(i);until i=N;write(p);end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Уля Конюхова

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «С клавиатуры вводятся 17 чисел. Найти произведениеположительных чисел не делящихся на 17. Сделать в Турбо Паскале, методом repeat...until» от пользователя Уля Конюхова в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!