Помогите пожалуйста Составить программу для последовательного произведения вводимых с клавиатуры целых чисел ,предусмотреть выход из произведения при вводе нуля

Question

Помогите пожалуйста Составить программу для последовательного произведения вводимых с клавиатуры целых чисел ,предусмотреть выход из произведения при вводе нуля

Гость

Ответ(ы) на вопрос:

Accepted Answer

Нет под рукой щас паскаля, вот примерный цикл readln(Input); res := Input; while (not(Input = 0)) do begin readln(Input); res := res * Input; end;