Question

найти произведение нечётных цифр числа!!!!! Помогитееееееееее​

Answer 1

var

   s: string;

   i, mult: Int64;

begin

   Read(s);

   mult := 1;

   for i := 1 to length(s) do

       if (ord(s[i]) - ord('0')) mod 2 = 1 then

           mult := mult * (ord(s[i]) - ord('0'));

   WriteLn(mult)

end.

Answer 2

Bash Script:

#!/bin/bash

res=1

flag=0

read -p "Enter a number: " s

for (( i=0; $i<${#s}; ++i )); do

n=${s:$i:1}

if (( n % 2 > 0 )); then

 res=$(( res * n ))

 flag=1

fi

done

case $flag in

0) echo "Number does not contain odd digit!" ;;

1) echo "Product of odd numbers is $res" ;;

esac

Задание выполнено!