посчитайте с информатикой

А. Куканова Рассматривается множество целых чисел, принадлежащих цифровому отрезку [1529; 9482], которые удовлетворяют следующим условиям:

- запись в двоичной системе заканчивается на 01;

- запись в пятиричной системе заканчивается на 3.

Найдите минимальное такое число и их сумму.

Минимальное число, которое заканчивается на "01" в двоичной системе и на "3" в пятиричной: 1533

Сумма чисел, которые заканчиваются на "01" в двоичной системе и на "3" в пятиричной: 2190194

Ну и вот собственно они все (из заданного диапазона):

1533, 1553, 1573, 1593, 1613, 1633, 1653, 1673, 1693, 1713, 1733, 1753, 1773, 1793, 1813, 1833, 1853, 1873, 1893, 1913, 1933, 1953, 1973, 1993, 2013, 2033, 2053, 2073, 2093, 2113, 2133, 2153, 2173, 2193, 2213, 2233, 2253, 2273, 2293, 2313, 2333, 2353, 2373, 2393, 2413, 2433, 2453, 2473, 2493, 2513, 2533, 2553, 2573, 2593, 2613, 2633, 2653, 2673, 2693, 2713, 2733, 2753, 2773, 2793, 2813, 2833, 2853, 2873, 2893, 2913, 2933, 2953, 2973, 2993, 3013, 3033, 3053, 3073, 3093, 3113, 3133, 3153, 3173, 3193, 3213, 3233, 3253, 3273, 3293, 3313, 3333, 3353, 3373, 3393, 3413, 3433, 3453, 3473, 3493, 3513, 3533, 3553, 3573, 3593, 3613, 3633, 3653, 3673, 3693, 3713, 3733, 3753, 3773, 3793, 3813, 3833, 3853, 3873, 3893, 3913, 3933, 3953, 3973, 3993, 4013, 4033, 4053, 4073, 4093, 4113, 4133, 4153, 4173, 4193, 4213, 4233, 4253, 4273, 4293, 4313, 4333, 4353, 4373, 4393, 4413, 4433, 4453, 4473, 4493, 4513, 4533, 4553, 4573, 4593, 4613, 4633, 4653, 4673, 4693, 4713, 4733, 4753, 4773, 4793, 4813, 4833, 4853, 4873, 4893, 4913, 4933, 4953, 4973, 4993, 5013, 5033, 5053, 5073, 5093, 5113, 5133, 5153, 5173, 5193, 5213, 5233, 5253, 5273, 5293, 5313, 5333, 5353, 5373, 5393, 5413, 5433, 5453, 5473, 5493, 5513, 5533, 5553, 5573, 5593, 5613, 5633, 5653, 5673, 5693, 5713, 5733, 5753, 5773, 5793, 5813, 5833, 5853, 5873, 5893, 5913, 5933, 5953, 5973, 5993, 6013, 6033, 6053, 6073, 6093, 6113, 6133, 6153, 6173, 6193, 6213, 6233, 6253, 6273, 6293, 6313, 6333, 6353, 6373, 6393, 6413, 6433, 6453, 6473, 6493, 6513, 6533, 6553, 6573, 6593, 6613, 6633, 6653, 6673, 6693, 6713, 6733, 6753, 6773, 6793, 6813, 6833, 6853, 6873, 6893, 6913, 6933, 6953, 6973, 6993, 7013, 7033, 7053, 7073, 7093, 7113, 7133, 7153, 7173, 7193, 7213, 7233, 7253, 7273, 7293, 7313, 7333, 7353, 7373, 7393, 7413, 7433, 7453, 7473, 7493, 7513, 7533, 7553, 7573, 7593, 7613, 7633, 7653, 7673, 7693, 7713, 7733, 7753, 7773, 7793, 7813, 7833, 7853, 7873, 7893, 7913, 7933, 7953, 7973, 7993, 8013, 8033, 8053, 8073, 8093, 8113, 8133, 8153, 8173, 8193, 8213, 8233, 8253, 8273, 8293, 8313, 8333, 8353, 8373, 8393, 8413, 8433, 8453, 8473, 8493, 8513, 8533, 8553, 8573, 8593, 8613, 8633, 8653, 8673, 8693, 8713, 8733, 8753, 8773, 8793, 8813, 8833, 8853, 8873, 8893, 8913, 8933, 8953, 8973, 8993, 9013, 9033, 9053, 9073, 9093, 9113, 9133, 9153, 9173, 9193, 9213, 9233, 9253, 9273, 9293, 9313, 9333, 9353, 9373, 9393, 9413, 9433, 9453, 9473

Программа на Паскале:

program prog;

var

i,min:integer;

k:longint;

s,t:string;

procedure fromDecToX(n:integer; k:integer);

begin

if n>(k-1) then fromDecToX(n div k, k);

str(n mod k,t);

s:=con(s,t); //////////////////////////// внимание, не сохраняется, если оператор написан правильно. добавьте, пожалуйста к con ещё cat.

end;

begin

k:=0;

min:=0;

for i:=1529 to 9482 do begin

s:='';

fromDecToX(i, 5);

if copy(s, length(s), 1) = '3' then begin

s:='';

fromDecToX(i, 2);

if copy(s, length(s)-1, 2) = '01' then begin

if min = 0 then min:=i;

k:=k+i;

end;

end;

end;

writeln('Минимальное число, которое заканчивается на "01" в двоичной системе и на "3" в пятиричной: ', min);

writeln('Сумма чисел, которые заканчиваются на "01" в двоичной системе и на "3" в пятиричной: ', k);

end.