Ва
Васёк
составить программу на паскале
Напишите программу на паскале, которая число вводимое с экрана (в десятичном виде ) преобразует в двоичное число и считает сколько в нем единиц и выводит на экран
Напишите программу на паскале, которая число вводимое с экрана (в десятичном виде ) преобразует в двоичное число и считает сколько в нем единиц и выводит на экран
Write('Enter N = '); ReadLn(N);
i := N; D := ''; K := 0;
repeat
D := Chr(48 + i and 1) + D; Inc(K, i and 1); i := i shr 1;
until i = 0;
WriteLn(N, ' (10) = ', D, ' (2)');
WriteLn('Unos = ', K);
сколько денег?
За бесплатно никто писать не будет . Плати деньги либо сам