Записать в Паскале.Найти произведение всех цифр заданного четырехзначного числа. x это 4ех значное чило
a,б,с,д цифры из x
Ответы на вопрос
Ответил veroni15
0
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.
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.
Ответил veroni15
0
лучший плиз
Ответил Naruto8917648
0
а это разве правильно ?
Ответил veroni15
0
да
Ответил Naruto8917648
0
а можно вместо dob написать a*b*c*d
Ответил veroni15
0
нет нужна переменая
Новые вопросы