8 бит=1 байт
24576/8=3072 байт
1024 байт=1 кбайт
3072/1024=3 кбайт
Ответ - 3 кбайт
Правильно D )) lol ())))))
Да все теже что и с вещественным только делить нельзя, сложение вычитание умножение, остаток от деления, возведения в степень... и тд
27) вычисляется сумма s=s+A[i], если A[n-i]-A[i] > A[i]
n=10 i=0 A[10]-A[0]>A[0] 100-0>0 - да s=0+0=0
n=10 i=1 A[9]-A[1]>A[1] 90-10>10 - да s=0+10=10
n=10 i=2 A[8]-A[2]>A[2] 80-20>20 -да s=10+20=30
n=10 i=3 A[7]-A[3]>A[3] 70-30>30 да s=30+30=60
n=10 i=4 A[6]-A[4]>A[4] 60 -40>40 нет
n=10 i=5 A[5]-A[5]>A{5} - нет
n=10 i=6 A[4]-A[6]>A[6] 50-60> 60 нет
........................................................ и т.д.
n=10 i=10 A[0]-A[10]>A[10] 0-100> 100 - нет
ответ 60
28) вычисляется s=s+A{i},если A[n-i]-A[i]<A[i] n=10
i=0 20-0<0 -нет
i=1 18-2<2 - нет
I=2 16-4<4 - НЕТ
i=3 14-6<6 - нет
i=4 12-8 <8 - ДА s=0+8=8
i=5 10-10<10 - да s=8+10=18
i=6 8-12<12 - да s=18+12=30
i=7 6-14<14 -да s=30+14=44
i=8 4-16 <16- да s=44+16=60
i=9 2-18< 18 -да s=60+18=78
i=10 0-20<20 - да s=78+20=98 ответ 98
Var x1, y1, x2, y2: real;
c:char;
begin
repeat
read(c);
until c='>';
read(c);
readln(x1,y1);
repeat
read(c);
until c='>';
read(c);
readln(x2,y2);
x1 := x1*x1 + y1*y1 - x2*x2 - y2*y2;
if (x1 > 0) then
writeln('2-я точка ближе')
else if (x1 < 0) then
writeln('1-я точка ближе')
else
writeln('Точки на одинаковом расстоянии')
end.
