Перевод кода паскаль в c++ 1 var i,n:integer;
p:real;
begin
writeln('Введите N');
readln(n);
p:=1;
if odd(n) then
begin
for i:=1 to n do
if odd(i) then p:=p*i
end else
for i:=1 to n do
if not odd(i) then p:=p*i;
writeln(p);
end.
p:real;
begin
writeln('Введите N');
readln(n);
p:=1;
if odd(n) then
begin
for i:=1 to n do
if odd(i) then p:=p*i
end else
for i:=1 to n do
if not odd(i) then p:=p*i;
writeln(p);
end.
More Questions From This User See All