С++
Дано 4-ех значное число - выведите произведение всех его цифр.

program sam;

uses    crt;

type    tmasi=array[1..50]of integer;

var     ch:integer;

       ss,s,k,i:byte;

       z:tmasi;

begin

write('Ââåäè ÷èñëî:'); readln(ch);

i:=0;

s:=0;

ss:=0;

while ch <>0 do

begin

 inc(i);

 z[i]:=ch mod 10;

 ch:=ch div 10;

 end;

 k:=i;

 for i:=1 to k do

 if z[i]=4 then inc(s)else

 if z[i]=7 then inc(ss);

 if (s=0)and(ss=0)then writeln(' ÷èñëå íåò ÷èñåë 4 è 7') else

 if (s<>0)and(ss<>0)then writeln(' ÷èñëå ïðèñóòñâóþò ÷èñëà 4 è 7');

 if ((s<>0)and(ss=0))or((s=0)and(ss<>0))then writeln(' ÷èñëå ïðèñóòñòâóþò ëèáî òîëüêî 4 ëèáî òîëüêî 7');

end.

Объяснение: