1/16 Кбайта это 64 байта
64 байта это 512 бит
Var i,x,s:integer;
begin
writeln('Вводите стоимость товаров по одному');
while i<3 do
begin
readln(x);
if x>1000 then
begin
s:=s+x;
i:=i+1;
end;
end;
writeln('s=',s);
<span>end.</span>
9800p. - 100%
х-102,04%
102,04 - 100=2,04%
<span>ответ: 2,04% . Алгоритм с сожалению построить не могу. Извени. </span>
9^8 - 3^24 -9 = 3^16 - 3^24 - 3^2=3^16 -(3^24+3^2)
3^24 = 1 000...0 (в 3сс) (всего 24 нуля)
3^2 =100 (в 3сс)
3^24 +3^2 = 1 0....0100 (в 3сс) (после старшей единицы 24 знака)
3^16 = 100..0 (в3сс) 16-ть нулей после единицы
1 0000000000....0100 -
10....... 0
------------------------------
0 222222222 0.....100 -----> девять двоек в 3сс.
( 10-1=2(в3сс) (24-16+1=9)
ответ 9