Question

Cerinţă
Să se scrie un program care să determine produsul cifrelor impare ale unui număr natural citit de la tastatură.

Date de intrare
Programul va citi de la tastatură un număr natural.

Date de ieşire
Programul va afişa pe ecran produsul cifrelor impare ale numărului citit.

Restricţii şi precizări
numărul citit va fi mai mic decât 231
dacă numărul nu conţine cifre impare atunci se va afişa valoarea -1

Exemplu
Intrare

2705
Ieşire

35

Answer 1

Program P1;
var x,x1;
   p,nr;
 writeln"Dati valoarea lui x= ";
readln(x);
 x1=x;
  p=1;
  nr=0;
  if(x==0)nr=1;
 while(x1=0) then p=p*(x1/10);
  x1=x1/10;  
 writeln('Produsul cifrelor lui 'x' este ',p);
end;