Задача 42907 Произведение натуральных нечетных чисел...

lllplpl0

2019-12-19 22:45:26

Произведение натуральных нечетных чисел от 50 до 100 В Паскале

slava191

2019-12-20 12:25:16

★

var
i, n: integer;

begin

n:=1

for i := 50 to 100 do
if(i mod 2!=0) then
begin
n:=n*i;
end;

writeln(n)
readln
end.