Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Как найти произведение цифр четырех значного числа на языке паскаль?

Ответ оставил Гость

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.