Помогите пожалуйста перевести число 85305 в двоичную систему счисления.

Знания

Информатика

2 ответа:

Денис-Омск [7]4 года назад

0 0

10011000100011001 чтобы перевести надо число делить на 2, а 1 или 0 в остатке записывать, делить получившееся частное на 2 и так пока и не доделишь до 1 , записать числа из остатка в обратном порядке

ЛиЕлена4 года назад

0 0

Если переводить из 10 системы в 2 то будет так

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

Помогите срочно нужно написать простенькую программу в Паскаль, заранее спасибо) Задание: Найти наибольшую степень 3 не превышаю

Тело

Var
i:integer;
n,m:longint;
begin
Write('Введите натуральное m: '); Read(m);
n:=1;
repeat
n:=3*n; Inc(i)
until n>m;
Writeln('3^',i-1,' = ',n div 3,' не превышает ',m)
end.

<em><u>Тестовые решения:</u></em>
Введите натуральное m: 1
3^0 = 1 не превышает 1

Введите натуральное m: 3
3^1 = 3 не превышает 3

Введите натуральное m: 54652341
3^16 = 43046721 не превышает 54652341

0 0

4 года назад

Приведите 3-4 примера профессий людей, чья деятельность, в основном, связана с обработкой полученной информации.

tantan [45]

Программист
Секретарь
Работник горячей линии( телефонист)
Продавец
Учитель

0 0

3 года назад

Pascal! Надо вывести на экран свою фамилию, имя и отчество, а через две строки - дату сегодняшюю.

aksenov sergej5555

Begin
Writeln('Иванов Иван Иванович');
Writeln; Writeln;
Writeln('22.07.2018')
end.

0 0

4 года назад

В переменную P записан периметр квадрата. Составь для считалки алгоритм. Цель: вычислить площадь квадрата

Dimchik 1207

A = P/4
S = a*a
Вывод S
Весь алгоритм собсна

0 0

2 года назад

Дан рекурсивный алгоритм: procedure F(n: integer); begin writeln('*'); if n>0 then begin writeln('*'); F(n-2); F(n div 2); F(

акулатерминатор

20 звезд.Можно легко проверить,переделав алгоритм.
var s:integer;
procedure F(n: integer);
begin
writeln('*');
if n>0 then begin
writeln('*');
s:=s+1;
F(n-2);
F(n div 2);
F(n div 2);
end;
end;
begin
f(7);
writeln(s);
end.

0 0

4 года назад