Паскаль.
Дана строка.Найти произведение цифр этой строки.Если цифра равна нулю,то цифру в произведение не включать.
!СРОЧНО!
Дана строка.Найти произведение цифр этой строки.Если цифра равна нулю,то цифру в произведение не включать.
!СРОЧНО!
More Questions From This User See All
Answers & Comments
var i,k,s:integer;
begin
writeln('vvedite chislo');
readln(i);
s:=1;
while i>0 do begin
k:=i mod 10;
if k > 0 then
s:=s*k;
i:=i div 10;
end;
writeln(s);
end.