Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

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

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

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

Найти произведение четных чисел от 1 до 20.

Код

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.

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

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

Вообще-то

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

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