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

Формулировка задачи:

элементы кратные 7 положительные, а элементы кратные 3 отрицательные. Остальные не входят. элементы вводим сами
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)

Код к задаче: «Определить произведение элементов последовательности - Pascal ABC»

textual
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.

12   голосов, оценка 4.083 из 5


СОХРАНИТЬ ССЫЛКУ