Как переводить число из десятичной системы счисления в двоичную систему счисления? (в данном случае число 1010)

1)var n,k: integer; begin   write('число:   ');   readln(n);   k: =0;   repeat     k: =k*10+n mod 10;     n: =n div 10;   until n=0;   writeln('новое число:   ',k); end. 2) var n,k,m: integer; begin  write('двоичное число:   ');   readln(n);   k: =1;   m: =0;   repeat    m: =m+k*(n mod 10);     n: =n div 10;     k: =k*2;   until n=0;   writeln('десятичное число:   ',m); end.

Сейчас на очень трудно представить мир без интернета. Каждый из нас, каждый день тратит время на компьютер, телефон или планшет. Как выглядил бы современный мир без интернета?

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

Без интернета жизнь стала бы лучше? Сомневаюсь. Тк ты много времени тратил на поиск информации, было бы не удобно общаться через большие расстояния, ты больше не смог бы позвонить своим родственникам по видео связи, которые живут далеко.