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

Question

Феоза

12 июня, 11:31

+2

Ответы (1)

Знаете ответ на вопрос?

Никушка · Answer 1

var

x, s: integer;

begin

s : = 1;

repeat

readln (x) ;

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

until (x = 0) ;

writeln (s) ;

end.