</script>alert("Макс. красного: " + max);//вывод сообщения о максимальной последовательности красногоalert("Частота выпадания красного: " + red1/arr.length*100+'%');//вывод сообщения о проценте частоты красного}}redm=0;//обнуляем максимальную последовательность {} else //иначе если последовательность красного закончилась//то перезапишим максимальное число//больше максимального числа, if (redm>max) max=redm; //условие если последовательность redm++; //запиши максимальную последовательность red1++; //запиши сколько раз встретилось красноеif(arr[i]==-1){ //условие если красное то for (var i = 0; i<arr.length; i++) {//цикл подсчета выподания красногоalert(arr);//вывод массива}arr.push((Math.round(Math.random()*2))-1);//случайные числа от -1 до 1for (var i = 0; i <=rounds; i++) { //цикл для заполнения массиваvar max=0;//переменная для хранения максимальной последовательностиvar redm=0;//переменая для подсчёта последовательности красногоvar red1=0;//переменная для подсчёта частоты красногоvar rounds=1000000;//число раундовvar arr=[];//обьявляем массив<script><meta charset="utf-8">
// PascalABC.NET 3.2, сборка 1344 от 22.11.2016 // Внимание! В других версиях работа не гарантируется! begin var a:=ArrRandom(15,-20,20); a.Println; a:=a.Select(x->x.IsOdd?x*3:x div 2).ToArray; a.Println end.
А вот так это же самое обычно делают в школах... const n=15; var a:array[1..n] of integer; i:integer; begin Randomize; for i:=1 to n do begin a[i]:=Random(41)-20; Write(a[i],' ') end; Writeln; for i:=1 to n do begin if a[i] mod 2=0 then a[i]:=a[i] div 2 else a[i]:=a[i]*3; Write(a[i],' ') end; Writeln end.
Кбайт =___Мбайт =___Мбайт;
бит =___байт =___байт =___Кбайт =___Кбайт;
байт =___байт =___Кбайт =___Кбайт =___Мбайт =___Мбайт;
1) 16 Кбайт = 2⁴ Кбайт = 2⁴ * 2¹⁰ байт = 2¹⁴ байт = 2¹⁴ * 2³ бит = 2¹⁷ бит
2) 2¹⁵ Кбайт = 2¹⁵ / 2¹⁰ Мбайт = 2⁵ Мбайт
3) 2¹⁷ бит = 2¹⁷ / 2³ байт = 2¹⁴ байт = 2¹⁴ / 2¹⁰ Кбайт = 2⁴ Кбайт
4) 32 Гбайта = 2⁵ Гбайт = 2⁵ * 2¹⁰ Мбайт = 2¹⁵ Мбайт = 2¹⁵ * 2¹⁰ Кбайт = 2²⁵ Кбайт
5) 2²³ байт = 2²³ / 2¹⁰ Кбайт = 2¹³ Кбайт = 2¹³ / 2¹⁰ Мбайт = 2³ Мбайт
6) 64 Мбайта = 2⁶ Мбайт = 2⁶ * 2¹⁰ Кбайт = 2¹⁶ Кбайт = 2²⁶ * 2³ бит = 2²⁹ бит
Объяснение:
1 байт = 8 бит = 2³ бит
1 Кбайт = 1024 байт = 2¹⁰ байт
1 Мбайт = 1024 Кбайт = 2¹⁰ Кбайт
1 Гбайт = 1024 Мбайт = 2¹⁰ Мбайт
При переводе больших единиц в меньшие используем умножение. При умножении степени с одинаковым основанием складываем.
При переводе меньших единиц в большие используем деление. При делении степени с одинаковым основанием вычитаем.
6) 64 Мбайта = 2⁶ Мбайт = 2⁶ * 2¹⁰ Кбайт = 2¹⁶ Кбайт = 2¹⁶ * 2¹⁰ байт = 2²⁶ байт = 2²⁶ * 2³ бит = 2²⁹ бит