• Помогите решить задачу в PascalABC . Вот какая должна получится программа: "Пока пользователь вводит с клавиатуры положительные числа, умножайте их.

Ответы 1

  • var  n, mult, count: integer;begin  n := 1;  mult := 1;  while n > 0 do  begin    inc(count);    mult := mult * n;    read(n);  end;  writeln('Количество чисел: ', count - 1);  writeln('Произведение чисел: ', mult);end.
    • Автор:

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

Войти через Google

или

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

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

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