Информатика-"Нет доступных подключений" что делать?

1) Дан одномерный массив из 12 элементов. Составить программу заполняющую массив целыми числами в интервале -20 до 152)Требуется

екатерина8877

var

a:array[1..12] of integer;

i:integer;

begin

randomize;

writeln('Сгенерированный массив:');

for i := 1 to 12 do

begin

a[i] := random(36) - 15;

write(a[i], ' ');

end;

writeln;

end.

//вторая программа

const

n = 8;

var

a:array[1..n] of integer;

i, count3, count4, count5:integer;

begin

randomize;

writeln('Оценки учеников:');

for i := 1 to n do

begin

a[i] := random(3) + 3;

write(a[i], ' ');

if a[i] = 5 then

inc(count5);

if a[i] = 4 then

inc(count4);

if a[i] = 3 then

inc(count3);

end;

writeln;

writeln('Троек - ', count3);

writeln('Четверок - ', count4);

writeln('Пятерок - ', count5);

end.

//третья программа

var

k:array[1..12] of integer;

i:integer;

begin

randomize;

writeln('Сгенерированный массив:');

for i := 1 to 12 do

begin

k[i] := random(36) - 15;

write(k[i], ' ');

end;

writeln;

writeln('Преобразованный массив:');

for i := 1 to 12 do

begin

k[i] := k[i] * (-1);

write(k[i], ' ');

end;

end.

0 0

4 года назад

Какой минимальный объем дискового пространства может занимать файл

WhiteAngel

В зависимости от типа форматирования носителя...А так 0,5 Кбайт.= 512 Байт

0 0

4 года назад

Сколько единиц в двоичной записи числа 8^208 – 4^300 + 2^2754 – 128?

foxwook [192]

Ответ:

617 единиц

Объяснение:

Запишем все четыре слагаемых в виде степеней двойки:

1) $8^{208}=(2^{3})^{208}=2^{(3*208)}=2^{624}$

в двоичном виде это единица и 624 нуля

2) $-4^{300}=-(2^{2})^{300}=-2^{(2*300)}=-2^{600}$

в двоичном виде это минус единица и 600 нулей

3) $2^{2754}$

в двоичном виде это единица и 2754 нуля

4) $-128=-2^{7}$

в двоичном виде это -10000000 (минус единица и 7 нулей)

Берём двоичное слагаемое с наибольшим абсолютным значением:

1000...(всего 2754 нуля)

Начали с положительного, к нему прибавим ещё одно положительное:

1000...(всего 624 нуля)

Получим следующее число:

1...(2754 -1 -624 нулей)...1...(624 нуля)

Посчитаем нули (а единиц там только две):

1...(2129 нулей)...1...(624 нуля)

Теперь пошли отрицательные. Вычитаем следующее значение:

1000...(всего 600 нулей)

Чтобы вычесть, придётся занять у ближайшего старшего разряда с единицей (у той единицы, которая после 624 нулей). Она заменится на ноль, а после неё все нули заменятся на единицы, после которых будут идти 600 нулей в конце). Вот что получится:

1...(2129 +1 нулей)...(624 -600 единиц)...(600 нулей)

Посчитав, получим всего 25 единиц в числе:

1...(2130 нулей)...(24 единицы)...(600 нулей)

Далее, вычитаем следующее значение:

10000000 (единица и 7 нулей)

Действуем, так же, как вычитали только что (занимаем у последней из 24-ёх единиц) -она заменится на ноль, а после неё нули заменятся на единицы почти до конца (в конце будет семь нулей):

1...(2130 нулей)...(24 -1 единиц)...0...(600 -7 единиц)...(7 нулей)

Посчитав, получим такое число:

1...(2130 нулей)...(23 единицы)...0...(593 единицы)...(7 нулей)

И, количество единиц в этом числе равно:

1 + 23 + 593 = 617 единиц

Тот же результат я получил и в программе на Паскале (проверял в PascalABC.NET 3.4.2). Скрин этого можно посмотреть ниже (там же можно посмотреть, как полностью выглядит получившееся двоичное число).

0 0

3 года назад

Компьютер-это электронное устройство, предназначенное для ...

Dusyarsd

<span>Компьютер - это электронное устройство, предназначенное для </span>работы с информацией

0 0

3 года назад

Прочитать ещё 2 ответа

СРОЧНО!! найти сумму элементов главной диагонали двумерного массива (3х3)

Rytsarev [14]

Var r:array[1..3,1..3] of integer;i,j,n,k,sum:integer; b:array[1..30]of integer;beginrandomize;writeln('Исходная матрица: ');for i:=1 to 3 dobeginfor j:=1 to 3 dobeginr[i,j]:=random(15)-5;write(r[i,j]:3);end;writeln;end;// cумма диагоналиwriteln;for i:=1 to 3 dobeginfor j:=1 to 3 dobeginif i=j then beginwrite(r[i,j]:3);sum:= sum + r[i,j];end elsewrite(' ':3);end;writeln;end;writeln(sum);end.

0 0

4 года назад