в Паскале.Найти произведение всех цифр заданного четырехзначного числа.
Answers & Comments
simbion0
Var n,ed,des,sot,tis:integer; S:real; Begin Readln(n); ed:=n mod 10; des:=n div 10 mod 10; sot:=n div 100 mod 10; tis:=n div 1000 mod 10; S:=ed*des*sot*tis; Writeln(s); end.
Answers & Comments
n,ed,des,sot,tis:integer;
S:real;
Begin
Readln(n);
ed:=n mod 10;
des:=n div 10 mod 10;
sot:=n div 100 mod 10;
tis:=n div 1000 mod 10;
S:=ed*des*sot*tis;
Writeln(s);
end.