6папок т.к в 1 папке содержится 2-3 бита
<span>var x,y:integer;
begin
write('x = ');
readln(x);
y:=1-2*x+3*x*x-4*x*x*x;
writeln('y = ',y);
end<span>.
Пример:
</span><span>x = 3
y = -86</span></span>
Ответ:
14638(десячичная система) -
пронумеруем разряды
4 3 2 1 0
1 4 6 4 8
теперь запишем выражение
14638(десячичная система) = 1 х 10^4 + 4 х 10^3 + 6 x 10^2 + 4 x 10^1 + 8 x 10^0
Объяснение:
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
if n<9 then n:=9; // от дурака
var d:=ArrRandom(n,-50,50);
Write('Исходный массив: '); d.Println;
var i:=1;
repeat
d[i]*=2; i+=2
until i>n-1;
Write(' После удвоения: '); d.Println;
d:=d[:1]+d[2:8]+d[9:];
Write(' После удаления: '); d.Println
end.
<u>Пример</u>
n= 15
Исходный массив: -13 -33 48 -47 -9 19 -21 45 10 -4 -30 40 -31 0 -2
После удвоения: -13 -66 48 -94 -9 38 -21 90 10 -8 -30 80 -31 0 -2
После удаления: -13 48 -94 -9 38 -21 90 -8 -30 80 -31 0 -2
<span>Через поле и лесок подаётся голосок. <span>
Он
бежит по проводам -
Скажешь здесь, а слышно там. (телефон)
</span></span>
Под крышей - четыре ножки,
На крыше - суп да ложки. (Стол)<span>
</span>Хоть по объёму и мала,
Информацию хранит она.
Знаем все устройство это
<span>Называется……
</span>
Адрес, имя, телефоны, все запишет, все запомнит!
<span>И девчонке и мальчишке, всем поможет эта книжка!
</span>
Скромный серый колобок, Длинный тонкий проводок, Ну а на коробке - Две или три кнопки. В зоопарке есть зайчишка, <span>У компьютера есть ...
</span>
Стоит весёлый, светлый дом.
Ребят проворных много в нём.
Там пишут и считают,
<span>Рисуют и читают.</span>