Регистрация
d180902
18.07.2021 00:44
Информатика
Есть ответ 👍

Жеке құқық ?
мүліктік құқық?
плагиат ?​

254
307
Посмотреть ответы 1

Ответы на вопрос:

TreYsYer
TreYsYer
4,4(66 оценок)

Program From2To10;

var

n2: Longint;

n10, m, i: Integer;

begin

Write('n2 = ');

ReadLn(n2);

n10 := 0;

m := 1;

while n2 <> 0 do

begin

i := n2 mod 10;

n10 := n10 + i * m;

m := m * 2;

n2 := n2 div 10;

end;

WriteLn('n10 = ', n10);

end.

Объяснение:

n2 - исходное число в двоичной записи

n10 - число в десятичной записи

m - 2 в степени номер разряда цифры

i - очередная цифра

Популярно: Информатика