Паскаль

Найти произведение четных натуральных чисел, меньших 100

2

Ответы и объяснения

2013-02-18T06:10:11+00:00

var x,y:integer;

Begin

x:=2;

y:=1;

while x<>100 do

Begin

y:=y*x;

x:=x+2;

end;

write(y);

End.

 

Числа меньше ста, все правильно. Не понял причину, почему модератор отправил на доработку.

2013-02-18T13:12:11+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var i,s:integer;
Begin
    s:=1;
    for i := 1 to 99 do
        if i mod 2 = 0 then s:=s*i;
    writeln(s);
End.