1*3*5*7 si 2*4*6*8
Program P1;
var i,n,p : integer ;
begin
write('n= ' ) ; readln(n ) ;
p:=1 ;
for i:=1 to n do
if ( i mod 2=1 ) then
p:=p*i ;
writeln('p=' , p ) ;
readln ;
end.
if ( i mod 2=0 ) then
Присоединяйтесь — мы покажем вам много интересного
Присоединяйтесь к ОК, чтобы подписаться на группу и комментировать публикации.
Комментарии 7
Program P1;
var i,n,p : integer ;
begin
write('n= ' ) ; readln(n ) ;
p:=1 ;
for i:=1 to n do
if ( i mod 2=1 ) then
p:=p*i ;
writeln('p=' , p ) ;
readln ;
end.
Program P1;
var i,n,p : integer ;
begin
write('n= ' ) ; readln(n ) ;
p:=1 ;
for i:=1 to n do
if ( i mod 2=0 ) then
p:=p*i ;
writeln('p=' , p ) ;
readln ;
end.