С какой???????···········
Ответ:
type for "слово" unlimited
var i,s:real;
begin
i:=3;
s:=1;
while i<=29 do begin
s:=s*i;
i:=i+0.2;
end;
writeln(s);
end.
Код программы:
<em>program</em><em> </em><em>learning</em><em>;</em>
<em>var</em><em> </em><em>a</em><em>,</em><em> </em><em>c</em><em>:</em><em> </em><em>Integer</em><em>;</em>
<em>begin</em>
<em>c</em><em>:</em><em>=</em><em> </em><em>0</em><em>;</em>
<em>readln</em><em>(</em><em>a</em><em>)</em><em>;</em>
<em>while</em><em>(</em><em>a</em><em> </em><em>mod</em><em> </em><em>2</em><em> </em><em>=</em><em> </em><em>0</em><em>)</em>
<em>do</em><em> </em><em>begin</em>
<em>a</em><em>:</em><em>=</em><em> </em><em>a</em><em> </em><em>mod</em><em> </em><em>2</em><em>;</em>
<em>c</em><em>:</em><em>=</em><em> </em><em>c</em><em>+</em><em>1</em><em>;</em>
<em>end</em><em>;</em>
<em>writeln</em><em>(</em><em>c</em><em>)</em><em>;</em>
<em>end</em><em>.</em>