Question

Записать в Паскале.Найти произведение всех цифр заданного четырехзначного числа. x это 4ех значное чило
a,б,с,д цифры из x

Answer 1

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.

Answer 2

лучший плиз

Answer 3

а это разве правильно ?

Answer 4

да

Answer 5

а можно вместо dob написать a*b*c*d

Answer 6

нет нужна переменая