С клавиатуры вводятся 17 чисел. Найти произведениеположительных чисел не…

Question

71

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

в избранное ссылка

Знаете ответ?

aleksandr-gold · Accepted Answer

36

aleksandr-gold

20 февраля 2023

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.

комментировать

в избранное ссылка отблагодарить