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

Question

88

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

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

ответить

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

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

zhekka · Accepted Answer

93

zhekka

29 марта 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:
Пароль: