Паскаль. Дана строка.Найти произведение цифр этой строки.Если цифра равна нулю,то цифру в...

Question

Паскаль.
Дана строка.Найти произведение цифр этой строки.Если цифра равна нулю,то цифру в произведение не включать.
!СРОЧНО!

Answer 1

Uses crt;var i,k,s:integer;beginwriteln('vvedite chislo');readln(i);s:=1;while i>0 do begink:=i mod 10;if k > 0 thens:=s*k; i:=i div 10;end;writeln(s);end.

---

Comments

uses crt;
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.