допоможіть з задачою Опции

[svetaj6]

знайти добуток парних чисел від 1 до 20.
будь ласка
в паскалі скласти програму

[TommyG]

Код

var i:integer;
               p:extended;
begin
p:=1;
for i:=2 to 20 do
if i mod 2=0 then p:=p*i;
writeln('proizvedenie ravno=',p);
readln
end.

Сообщение отредактировано: TommyG - 13.12.2010 0:21