const
N = 10;
Elem = 666;
var
a: array [1..N+1] of integer;
K: integer;
begin
for var i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива a: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
K := Random(1,N);
for var i:=N downto K do
a[i+1] := a[i];
a[K] := 666;
writeln('После вставки элемента ',Elem,' в позицию ',K,':');
for var i:=1 to N+1 do
write(a[i],' ');
writel
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x=');
Writeln('y=',3*x*x/Cos(2*x))
end.
<u>Пример</u>
x= -0.57
y=2.33408244304191
Организм по сути является системой взаимосвязано работающих органов. Организм
Переведем в начале 2^32 бит в байты.
В 1 байте 2^3 бит
следовательно
2^32 (бит)=2^32*2^(-3)=2^29 (байт)
В 1 Кбайте =1024 байт=2^10 байт
следовательно
2^29(байт)=2^29*2^(-10)=2^19 (Кбайт)
В 1Мбайте =1024 Кбайт
Следовательно
2^19(Кбайт)=2^19*2(-10)=2^9 =512 (Мбайт)
Ответ 512 (Мбайт)
Ответ:
3. 12
Объяснение:
Здесь цикл с постусловием, который прерывается когда z = 0
x = 96 y = 54
z = x mod y = 96 mod 54 = 42
z = 0 (нет) х = у = 54 у = z = 42
x = 54 y = 42
z = x mod y = 54 mod 42 = 12
z = 0 (нет) х = у = 42 у = z = 12
x = 42 y = 12
z = x mod y = 42 mod 12 = 6
z = 0 (нет) х = у = 12 у = z = 6
x = 12 y = 6
z = x mod y = 12 mod 6 = 0
z = 0 (да)
x = 12 y = 6