Помогите в паскале пожалуйста :)
var
a,r,p,c : integer;
begin
readln (a);
write (a,(3) = );
p := 1;
r := 0;
While a > 0 do
begin
c := a mod 10;
a := a div 10;
r := r + c * p;
p := p * 3;
end;
writeln
(r,(10));
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
