Запишите в 10-й системе счисления числа: 1)А5=34,1;А3=221 2)А7=120;А16=Е41А,12

Напишите программу, которая генерирует целочисленный массив, состоящий из 40 элементов в диапазоне от 0 до 120, подсчитывает кол

МаксКр

===== PascalABC.NET =====

1. Короткое, внешне изящное, но крайне неэффективное решение, поскольку массив просматривается ПЯТЬ раз.

begin

var a := ArrRandom(40, 0, 120);

a.Println;

Println('Элементов, равных 30:', a.Count(p -> p = 30));

Println('Сумма элементов:', a.Sum);

Println('Среднее арифметическое элементов:', a.Average);

var (imax, imin) := (a.IndexMax, a.IndexMin);

Println('Максимальный элемент №', imax + 1, '=', a[imax]);

Println('Минимальный элемент №', imin + 1, '=', a[imin])

end.

2. Более длинное решение, но с ОДНИМ просмотром массива и поэтому эффективное.

begin

var a := ArrRandom(40, 0, 120);

a.Println;

var (k, s, imax, imin) := (0, 0, 0, 0);

for var i := 0 to a.High do

begin

if a[i] = 30 then

Inc(k);

s += a[i];

if a[i] > a[imax] then

imax := i

else if a[i] < a[imin] then

imin := i

end;

Println('Элементов, равных 30:', k);

Println('Сумма элементов:', s);

Println('Среднее арифметическое элементов:', s / 40);

Println('Максимальный элемент №', imax + 1, '=', a[imax]);

Println('Минимальный элемент №', imin + 1, '=', a[imin])

end.

0 0

4 года назад

Передача файла размером 16 килобайт по некоторому каналу заняла 32 секунды. Определите скорость передачи данных канала в битах в

Sveta23

16/32=1/2 КБайт/сек- скорость
1/2*1024=512 Байт/сек
512/8= 64 бит/сек

0 0

4 года назад

Дополнительный код какого десятичного числа записан в 8-разрядную ячейку памяти: 11001111 ? * помогите прошу вас

Валерий091

Ответ:

-49

Объяснение:

В старшем (левом) разряде указана единица, следовательно записано отрицательное число. Такие числа переводятся в прямой код за три шага.

1. Инвертируем код, т.е. заменяем нули единицами, а единицы нулями

00110000

2. Сложим полученный код числа с единицей, получая прямой код.

00110000 + 1 = 00110001

Прямой код получен. Теперь можно найти число в десятичной системе.

1×2⁵ + 1×2⁴ + 0×2³ + 0×2² + 0×2¹ + 1×2⁰ = 32 + 16 + 1 = 49

3. Поскольку число отрицательное, приписываем знак минус.

-49

0 0

4 года назад

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

Пожалуйста помогите написать 3 несложных задания...1...Записать на языке паскаля: Условие 1) -3<x<=(меньше или равно)10; 2

Татьяна Елисеева

1.
1) (x>-3) and (x<=10)
2) x<>0, y<>0
3) (x>=-10) and (x<0)
4) a mod 3<>0
2.
program koren;
var c, b, a:integer;
begin
write ('Введите 3 числа: ');
read (a);
read (b);
read (c);
if (a<b) and (a<c) then writeln ('наименьшее число - ',a)
else if (b<a) and (b<c) then writeln ('наименьшее число - ',b)
else writeln ('наименьшее число - ',c);
end.

0 0

4 года назад

Напишите сочинение на тему Microsoft Word и Power Point отдельно.

igrdvd

Текстовый редактор Microsoft Word является одним из самых распространенных текстовых
редакторов. Это обусловлено его многочисленными преимуществами, к которым в первую 
очередь относятся широкие функциональные возможности. Трудно найти такую 
задачу при работе с документами, которую нельзя было бы решить средствами 
Microsoft Word. 

Текстовый редактор Microsoft Word входит в группу программ Microsoft 
Office. Кроме текстового редактора, эта группа включает электронную таблицу 
Excel и систему управления базой данных Access, то есть основные программы, 
которые могут использоваться для форматирования документооборота в 
учреждениях. Широкому использованию Microsoft Word способствуют также 
встроенные в него средства преобразования файлов, созданных другими 
редакторами, в файлы формата Word. 

Существует несколько версий Microsoft Word для Windows, каждая следующая версия, 
как правило, совместима с предыдущими версиями и имеет дополнительные возможности.

0 0

3 года назад