kukoleva
?>

70б. pascal. каждый отрицательный элемент массива f(21) возвести в квадрат и вывести исходный и изменённый массивы.

Информатика

Ответы

sawa-msk
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
  var a:=ArrRandom(21,-50,50); a.Println;
  for var i:=0 to 20 do
    if a[i]<0 then a[i]:=sqr(a[i]);
  a.Println
end.

Тестовое решение:
-1 -29 28 -1 19 -28 14 2 -33 46 12 27 30 -19 -19 -19 -17 29 -5 31 -27
1 841 28 1 19 784 14 2 1089 46 12 27 30 361 361 361 289 29 25 31 729
best00

Другой перевода из десятичной системы в двоичную: берем число и делим его столбиком на основание системы, в которую переводим. Нацело. Если есть остаток, то его оставляем. А получившееся часное снова делим на основание требуемой системы. И так далее, пока часное не перестанет делится нацело. А чтобы записать число в требуемой системе, записываем последнее часное, а потом все остатки, начиная с последнего. (кстати, по аналогии можно переводить в любую другую систему).

 

173|   2

172   86|  2

   1   86   43|  2

          0   42   21|  2

                1   20   10|  2

                       1   10   5|  2

                             0    4   2|  2

                                   1   2   1

                                        0

 

173_{10} = 10101101_2

 

Итого: в записи 5 единиц.

sveta740450
Аппаратное сжатие

Средство, предусмотренное на некоторых накопителях на магнитной ленте, обеспечивающее автоматическое сжатие хранимых данных. Обычно это средство можно задействовать при настройке программы архивации.

 

 

атрибут

Для файлов — признак использования только для чтения, скрытия, архивации, индексирования, сжатия и шифрования.

В Active Directory — характеристики объекта и тип данных, которые может содержать объект. Перечень обязательных и дополнительных атрибутов объекта определяется схемой соответствующего класса объектов.

 

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

70б. pascal. каждый отрицательный элемент массива f(21) возвести в квадрат и вывести исходный и изменённый массивы.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

vapebroshop
Larax0819
keldastrand
stic1995
bike-garage8
Kosov-Aleksandr379
Aleks0091
uzunanna19922488
Dampil
priemni451
Mariya dmitrievna
Alenachernika9111
Александровна1244
toniv
vitalis79