С клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0. требуется найти произведение чисел из введенной последовательности кратных пяти
С клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0. требуется найти произведение чисел из введенной последовательности кратных пяти
Гость
Ответ(ы) на вопрос:
Гостьvar
x, s: integer;
begin
s := 1;
repeat
readln(x);
s *= (x = 0 ? 1 : x);
until (x = 0);
writeln(s);
end.
Не нашли ответ?
Похожие вопросы