Паскаль

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

Question

Информатика

Федора

13 октября, 12:58

Паскаль

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

+5

Ответы (2)

Знаете ответ?

Толяха · Answer 1

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.

Федюха · Answer 2

var x, y:integer;

Begin

x:=2;

y:=1;

while x100 do

Begin

y:=y*x;

x:=x+2;

end;

write (y) ;

End.

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

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

Паскаль

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