Паскаль

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

Question

Информатика

Еванфия

29 июля, 09:37

Паскаль

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

+1

Ответы (2)

Знаете ответ на вопрос?

Тихослава · Answer 1

var x, y:integer;

Begin

x:=2;

y:=1;

while x100 do

Begin

y:=y*x;

x:=x+2;

end;

write (y) ;

End.

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

Васса · Answer 2

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.

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

Паскаль

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