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

[svetaj6]

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

[sheka]

Ги
А у Вас хоч якісь спроби були? Якщо так - викладайте.

[TommyG]

Можно по русски?

[sheka]

Найти произведение четных чисел от 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 - 12.12.2010 20:21

[sheka]

svetaj6, попытайся в следующий раз попробовать сделать сама

 var p,i:integer;
begin
p:=1;
for i:=1 to 10 do p:=p*2*i;
writeln('proizvedenie ravno=',p);
readln
end.

[volvo]

Вообще-то

1) это раздел "на заказ"
2) произведение получается больше 3.7 миллиарда, что не помещается не только в Integer, но даже и в Longint.

[TommyG]

2 поправил свой код.теперь выводит.
1 не думаю, что эта задача стоит каких то денег.

Сообщение отредактировано: TommyG - 12.12.2010 20:22