составить программу на языке паскаль АВС, которая запрашивает 4-е число и находит произведение цифры этого числа

1

Ответы и объяснения

2014-04-15T15:31:18+04:00
Var 
a,b1,b2,b3,b4,s:integer; 
   begin 
writeln('введи число'); 
readln(a); 
b1:=a mod 10; 
b2:=(a mod 100) div 10; 
b3:=(a mod 1000) div 100; 
b4:=a div 1000; 
s:=b1*b2*b3*b4; 
writeln('Ответ ',s); 
end.