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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
