Var c:integer;
begin
write('Введите с: ');
readln(c);
c:=c+c;
writeln('c = ',c);
end.
Пример:
Введите с: 16
c = 32
ПаскальАВС.нет
var
n:integer;
s:string;
begin
readln(n);
s:=StringOfChar('*',n);
writeln(s);
<span>end.</span>
Реализация двоичной системы счисления для кодирования информации намного проще, чем применение других способов.
Действительно, удобно кодировать информацию в виде последовательности нулей и единиц, если представить эти значения как два возможных устойчивых состояния электронного элемента.
Эти состояния легко различать. Недостаток двоичного кодирования – длинные коды. Но в технике легче иметь дело с большим количеством простых элементов, чем с небольшим числом сложных.