С клавиатуры вводятся 10 чиселю найдите произведения делящихся среди них на 3.…

Question

35

С клавиатуры вводятся 10 чиселю найдите произведения делящихся среди них на 3. Программа, помогитее написатьее

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

ответить

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

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

vadimus · Accepted Answer

71

vadimus

02 марта 2023

var a: array[1… 10]of integer; i,s: integer; begins: =1; for i: =1 to 10 do beginreadln (a[i]); if a[i] mod 3=0 then s: =s*a[i]; end; writeln (s); end.

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

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

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

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