256 цветов - 8-ми битная шкала цветности, т. е. 8 бит на точку.
<span>120 байт = 960 бит. </span>
<span>960 бит/8 битов = 120 точек</span>
dim a,b,n,s as integer
input a
b=a
n=0
x=0
do
b=b\10
x=b mod 10 +x ' сумма цифр
n=n+1 'сколько цифр
loop until b<>0
print n, x
if a mod 2 = 0 then print ("четное") else print ("нечетное")
a=a mod 100 ' сколько сотен
print a
'я не помню точно синтаксис фуникций input и print, так что проверь
Var x,p,rez:real;
<span> n: integer;
</span><span>begin
</span><span> p:=1;
</span><span> write('числа через пробел (завершение ввода - 0): '); read(x);
</span><span> while x<>0 do
</span><span> begin
</span><span> p:=p*abs(x);
</span><span> read(x);
</span><span> end;
</span><span> write('N = '); readln(n);
</span><span> rez:=exp((1/n)*ln(p));
</span><span> writeln('корень ',N,' -ой степени из ',p,' = ',rez);
</span><span>end.
</span><span>
</span>
А1=5
В1=5*2=10
С1=(А1+В1)*10=(5+10)*10=150
Ответ: 3