С клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0. требуется найти произведение чисел из введенной последовательности кратных пяти

Question

Геня

8 февраля, 15:20

+3

Ответы (1)

Знаешь ответ?

Филиппин · Answer 1

var

x, s: integer;

begin

s : = 1;

repeat

readln (x);

s * = (x = 0? 1 : x);

until (x = 0);

writeln (s);

end.