Определить произведение элементов последовательности

@MickRider · Регистрация: 14.10.2014

Author24 — интернет-сервис помощи студентам

элементы кратные 7 положительные, а элементы кратные 3 отрицательные. Остальные не входят.
элементы вводим сами

Pascal

program proz;
var 
i, n:integer;
a,s:real;
begin
readln(n);
s:=1;
while i<=n do
begin
readln(a);
if a mod 7=0 then
s:=s*a else
if a mod 3=0 then 
s:=s*a*(-1)

@kot96 · 20.06.2015, 13:16

Pascal

program proz;
var 
i,n,a:integer;
s:real;
begin
readln(n);
s:=1;i:=1;
while (i<=n) do
begin
readln(a);
if (a mod 7=0)and(a>0) then
s:=s*a;
if (a mod 3=0)and(a<0) then 
s:=s*a;
i:=i+1;
end;
write(s);
end.

	20.06.2015, 13:16