Var a,p:integer;
begin
write('a = ');
readln(a);
a:=abs(a);
p:=1;
while a<>0 do
begin
p:=p*(a mod 10);
a:=a div 10;
end;
p:=p*p;
writeln('p = ',p);
end.
Пример:
a = 273
p = 1764
Ну я не знаю я такого еще пока что не знаю ты скажешь зачем
я писал тебе а я хз
11 или 2 или 1 или 3 или 4 все числа
Ну можно перевести в 10ю систему сначала
12 ? 2 ? 2 = 11
12 - 2 / 2 = 11