Напишите для паскаля, пожалуйста. С клавиатуры вводятся 17 чисел. Найти…

Question

74

Напишите для паскаля, пожалуйста. С клавиатуры вводятся 17 чисел. Найти произведение положительных чисел не делящихся на 17. (Мы прошли только до цикла с постусловием)

категория: информатика

ответить

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

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

stasiara · Accepted Answer

39

stasiara

21 февраля 2023

Program chik; var k,i,s,a: integer; begins: =1; k: =0; for i: =1 to 17 dobeginread (a); if (a mod 17<>0) then begink: =1; s: =s*i; end; end; if k=1 then write (s) else write (0); end. Вроде так

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

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

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: