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

Question

Афросин

23 февраля, 23:05

+4

Ответы (1)

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

Любава · Answer 1

var

x, s: integer;

begin

s : = 1;

repeat

readln (x) ;

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

until (x = 0) ;

writeln (s) ;

end.