Программа принимает на вход число x, с которым проделывает следующие операции: сначала переводит число в троичную систему, считает сумму цифр в такой записи и добавляет её к числу. Затем к получившемуся числу дописывает справа две единички и возвращает число в десятичную систему счисления. Какое число ввели в программу, если она вернула число 490?

Системный блок-включающий в себя процессор устройства оперативной памяти .предназначен для обработки данных и управления работой компьютера.клавиатура применяется для вода информации в память компьютера. монитор предназначен для вывода информации на экран .мышь -одно из основных устройств ввода предназначенное для управления компьютером.джойстик для управления компьтером во время игры сканер для вода графических изображений в память компьютера непосредственно с бумажным оригиналом принтер для вывода информации на бумагу 

Var a,i,j,b,p,p1:longint;
m:array[0..501] of longint;
procedure qsort(l,r:longint);
var q,w,i,j,p:longint;
begin
q:=m[(l+r) div 2];
repeat
while m[i]<q do inc(i);
while m[j]>q do dec(j);
if i<j then
begin
w:=m[i];
m[i]:=m[j];
m[j]:=w;
inc(i); dec(j);inc(p);
end;
if i=j then
begin
inc(i);dec(j);
end;
until i>j;
if i<r then qsort(i,r);
if j<l then qsort(l,j);
p1:=p;
end;
begin
for i:=1 to 500 do
m[i]:=random(100);
for i:=1 to 500 do
for j:=500 downto i+1 do
if m[j]<m[i] then
begin 
a:=m[j]; 
m[j]:=m[i]; 
m[i]:=a; 
inc(p);
end;
writeln(p);
qsort(1,500);
writeln(p1);
end.