1 год назад

Переведите целые числа из десятичной системы счисления в двоичную: а)89 б)600 в)2010

Знания

Информатика

1 ответ:

german 912 [7]1 год назад

0 0

89=1011001
600=1001011000
2010=11111011010

Читайте также

1 Рассчитайте информационный объем закодированного звука, если записано звучание 55 с речи с частотой дискретизации 15 Гц и глуб

Blazersamara [361]

1. V=t*D*i=55*15*5= 4125 бит=515,625 байт
2.V=120*15*23*2= 82800 бит/8/1024=10,10742 Кбайт

0 0

4 года назад

Дана последовательность, расположить ее элементы, кратные 3, по убыванию.(записать на языке паскаль)помогите срочно

АллаП

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

begin

var n := ReadInteger('n=');

var a := ArrRandom(n, 10, 99); // для одинаковых позиций вывода

a.Println;

// элементы, кратные трем, упорядочить по убыванию

// прочие оставить на своих местах

var v := a.Select((v, i) -> (v, i))

.Where(t -> t[0] mod 3 = 0)

.OrderByDescending(t -> t[0])

.ToArray;

var w := v.Select(t -> t[1]).Sorted.ToArray;

for var i := 0 to w.High do

a[w[i]] := v[i][0];

a.Println

end.

0 0

4 года назад

ПОМОГИТЕ! Дано действительное число a. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить: a64

Олеся108

Код Pascal
1 var a:integer;
2 begin
3 readln(a);
4 writeln(a*2*2*2*2*2*2)
5 end.

0 0

4 года назад

Найти произведение всех чётных чисел от 1 до 50. Написать программу, которая решила бы эту задачу.

Lady Fox [7]

Uses crt;
var i:integer;
s:real;begin
s:=1;write(s);
for i:=1 to 50 do begin
i:=i+1;
s:=s*i;write('*',i);
end;
write (' = ',s);
end.
P.s. Программа написана на языке PascalABC, странный ответ она выдает потому, что в данном языке есть ограничения, и число, которое получается, выходит за диапазон данного значения.

0 0

4 года назад

Определить результат выполнения следующих действий.

Виктория Женева 347

D1)прямая горизонтальная линия
2) любой из этих рисунков

0 0

4 года назад