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

Question

38

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

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

ответить

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

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

rizinov · Accepted Answer

95

rizinov

21 февраля 2024

Prorgam zadacha; Const n=7; Var a: array [1… 100] of integer; i,p: integer; Beginp: =1; For i: =1 to n do beginReadln (a[i]); End; For i: =1 to n do beginIf (a[i]<0) then beginIf (a[i] mod 3=0) then p: =p*a[i]; end; end; Writeln (p); end.

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

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

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

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