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

Question

Татьяна Митрофаненкова · Accepted Answer

<img src="//otvet.imgsmail.ru/download/5c78d5832025e4c7a937b1dedf3b38a2_i-38.gif" > 
 
Ой, вам надо произведение. Тогда задачка довольно небанальная. Потому что к примеру 50! = 3 * 10^64 степени. Нормально не посчитаешь. Только если эмулировать умножение строками. 
 
олег алымов: С чего это вдруг? Числа 2, 4 и 6 - натуральные. А 1.5 - не натуральные.

Андрей Решетников · Answer

натуральные числа не бывают четными по определению.

Татьяна Попова · Answer

... 
begin 
... 
for i:=1 to 100 do begin 
if a mod 2 = 0 then 
proiz:=proiz + a; 
end; 
writeln('Произв: ',proiz); 
end.

Hellen Petrovskaya · Answer

var i,s:integer 
begin 
s:=0; 
for i:=1 to 100 do begin 
if (i mod 2)=0 then s:=s*i; 
end; 
readkey; 
end.