Задать вопрос
10 декабря, 23:30

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

+4
Ответы (1)
  1. 11 декабря, 01:32
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите решить задачу в PascalABC. Вот какая должна получится программа: "Пока пользователь вводит с клавиатуры положительные числа, ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы