Const n=5; type mass=array[1..n] of integer; Var i,p,s:integer; a:mass; Begin p:=1; s:=0; for i:=1 to n do read (a[i]); for i:=1 to n do if (a[i] mod 3)=0 and (a[i]mod 2)<>0 then begin s:=s+a[i]; p:=p*a[i]; end; writeln('summ= ', s); writeln('Proizvedinie= ', p); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку