Записать в Паскале.Найти произведение всех цифр заданного четырехзначного числа. x это 4ех значное чило a,б,с,д цифры из x
Answers & Comments
veroni15
Program Chisla; var x, a, b, c, d, dob : integer; begin readln(x); d:= x mod 10; a:= x div 1000; b:=(x div 100)-10*a; c:= (x div 10) - 100*a-10*b; dob:=a*b*c*d; writeln(dob); end.
Answers & Comments
var
x, a, b, c, d, dob : integer;
begin
readln(x);
d:= x mod 10;
a:= x div 1000;
b:=(x div 100)-10*a;
c:= (x div 10) - 100*a-10*b;
dob:=a*b*c*d;
writeln(dob);
end.