• Перевод кода паскаль в 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.

Ответы 3

  • ⓑⓛⓐⓖⓞⓓⓡⓨ
    • Автор:

      calebdz0g
    • 5 лет назад
    • 0
  • ⓑⓛⓐⓖⓞⓓⓐⓡⓨ
  • Незачто!
    • Автор:

      gallardo
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years