1,5 Мбайта = 1572864 байта
4096 бит = 4 кбит = 0,5 кбайт
1. a)
2. a)
3. c)
4. a)
5. с)
6. с)
7. d)
8. 20
9.
1) После example4 не стоит ;
2) Вместо red нужно read в обоих случаях
3) Вместо c=e нужно c:=e
4) После c:=a не стоит ;
10. Не понял как делать, возможно так:
(-23+(-22)+(-21)+(-20)+(-19)+(-18)+(-17)+(-16)+(-15)+(-14)+(-13)+(-12)+(-11)+(-10)+(-9)+(-8)+(-7)+(-6)+(-5)+(-4)+(-3)+(-2)+(-1)+0+1+2+3+4+5+6+7+8+9+10+11+12+13+14+15+16+17+18+19+20+21+22+23+24+25+26+27+28+29+30+31+32+33+34) / 58 = 319 / 58 = 5,5
Последнее скорее всего не правильно) Извиняй)
В "классическом" языке Паскаль, как его описал Н.Вирт, есть только функции для возведения во вторую степень и извлечения квадратного корня.
Поэтому для возведения в любую другую степень используют основное логарифмическое тождество
На паскале это записывается exp(b*ln(a))
В современных реализациях паскаля добавлена функция power(a,b), которая решает проблему.
Итак, "классическая запись"
b:=a*a+c*c; { возможно также sqr(a)+sqr(b) }
q:=exp(b*ln(cos(a+2.53*c)));
И запись современная
b:=a*a+c*c; // возможно также sqr(a)+sqr(b)
q:=power(cos(a+2.53*c),b);
№1 var s,x,n,i:integer;begins:=0;write('Введите количество чисел: ');readln(n);writeln('Введите числа: ');for i:=1 to n dobeginreadln (x);s:=s+xend;writeln('Сумма чисел равна ',s);end.
№2 var n,i,p:integer;beginp:=1;write('Введите количество чисел: ');readln(n);for i:=1 to n dop:=p*i;writeln('Произведение чисел равнo ',p);end.
Подробнее - на Znanija.com -
znanija.com/task/14923730#readmore
Если я правильно рассуждаю,то получается так - 24 = 2 ^I
I=5
5*200 = 1000 \8= 125 байт