Задать вопрос Регистрация
Помочь другим

  • программа на Паскале...

    Нахождение произведения четных чисел  и суммы нечетных чисел меньше 15...

Ответы 1

  • var s,p:real;

    i:integer;

    Begin

      p:=1;

      for i := 1 to 14 do

        if i mod 2 = 0 then p:=p*i

        else s:=s+i;

      writeln(p,s);

    End.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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