Для ввода информации:
- Readln<em>(есть альтернатива - read - их отличие в том, что допустим при присвоении значения переменным a и b значений, введенных с клавиатуры:</em>
<em>read(a);</em>
<em>read(b);</em>
<em>Вводятся числа 1 и 2 на первой строке, число 3 на второй. Переменной a получит значение 1, а переменная b - значение 2.</em>
<em>readln(a);</em>
<em>readln(b);</em>
<em>Вводятся числа 1 и 2 на первой строке, число 3 на второй. Переменной a получит значение 1, а переменная b - значение 3.)</em>
Для вывода информации:
- Write
- Writeln<em>(отличие от write в том, что после вывода writeln переносит последующий вывод на следующую строку в то время, как вывод после write продолжится на той же строке (если не сделаны некоторые дополнительные манипуляции))</em>
<em>________</em>
p.s. если всего 1 вариант ответа для вывода, то тыкай на любой. Они оба правильные.
Var n, c, d, p: integer;
begin
readln(n);
p := 1;
while n<>0 do begin
d := n mod 10;
n := n div 10;
if d mod 2 = 1 then begin
p := p * d;
c := c + 1;
end;
end;
if c = 0 then writeln (0)
else writeln(Exp(Ln(p)/c):0:3);
<span>end.</span>