Как найти произведение цифр четырех значного числа на языке паскаль?
Ответы на вопрос
Ответил VlaNik
0
var
x,p:integer;
begin
writeln('Введите х:');
readln(x);
p:=1;
p:= x mod 10; x:=x div 10;
p:= p * (x mod 10); x:=x div 10;
p:= p * (x mod 10); x:=x div 10;
p:= p * x;
writeln(p);
end.
x,p:integer;
begin
writeln('Введите х:');
readln(x);
p:=1;
p:= x mod 10; x:=x div 10;
p:= p * (x mod 10); x:=x div 10;
p:= p * (x mod 10); x:=x div 10;
p:= p * x;
writeln(p);
end.
Ответил vipkarinakul
0
спасибки
Новые вопросы
Математика,
2 года назад
Геометрия,
9 лет назад
Математика,
9 лет назад
Обществознание,
10 лет назад