Var a:integer;
begin
writeln('Введите сторону куба');
readln(a);
writeln('Объем куба с ребром ',a,' равен — ',a*a*a);
writeln('Площадь поверхности куба равна — ', 6*a*a);
<span>end.
</span>
</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">
var x: real;
function f(x: real): real;
begin
if x < 0 then f:= ln(x)/(1 - x)
else if (0 <= x) and (x < pi) then f:= 10
else if (pi <= x) then f:= cos(6 * x);
end;
begin
readln(x);
writeln(f(x));
end.
Program time;var x, a, b, c, d: integer;begin readln(x); a:= x div 1000; b:= (x mod 1000) div 100; c:= (x mod 100) div 10; d := x mod 10; writeln(d,c,b,a);end.
<span>9 Килобайт=73728 бит
</span><span>73728/1536=48 сек
</span><span><span>1024*48=49152 бит=6164</span> байт
</span>