• Ришите задачу плиз. С помощью постусловия: Найдите произведение чисел которые делятся на 3

Ответы 6

  • Шестая стока сверху или снизу - repeat :)
    • Автор:

      shayla
    • 6 лет назад
    • 0
  • Cпасибо) Только нужно var p,i,h)
  • Ну так везде, где встречается переменная "а" поменяйте ее на "i"
    • Автор:

      rylie7uog
    • 6 лет назад
    • 0
  • а 30 зачем?
  • Хорошо, я изменил код по вашему условию.
    • Автор:

      lanehurr
    • 6 лет назад
    • 0
  • //Pascalvar p,i,h:word;beginp:=1; //Переменная для хранения произведения чиселa:=3;writeln('Введите число ');readln(h);repeat  p:=p*a;  a:=a+3;until a>=h;writeln(p:5,a:5);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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