var 
a, b, c, d: byte;
begin
read(a);
b:= 8;
c:= 0;
d:= 0;
while a<>0 do begin 
if a and b<>0
then inc(c)
else inc(d);
a:=a shr 1;
end;
write(c,'',d);
 
 
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

26.04.2014, 10:40

Ответы с готовыми решениями:

Программа должна выводить координаты отрезка в границы которого входит максимальное число отрезков подаваемых на вход
#include<iostream> #include <fstream> using namespace std;

программа, которая будет вводить двузначное шестнадцатеричное число и выводить его десятичный аналог
Помогите написать программу, которая будет вводить двузначное шестнадцатеричное число и выводить...

Укажите наименьшее число, в результате обработки которого автомат выдаст число 1311
Автомат получает на вход четырёхзначное число. По этому числу строится новое число по следующим...

Вывести максимальное число из набора если в нем есть хоть одно четное число
если среди 3 чисел есть парное , то вывести максимальное если нет то мин.

	26.04.2014, 10:40

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

26.04.2014, 10:40

Помогаю со студенческими работами здесь

Нужно откоректировать программу которая будет при вводе любого числа, выводить чётное оно или нет
Здравствуйте, мне нужно откоректировать программу которая будет при вводе любого числа, выводить...

Написать программу, которая определяет максимальное чётное число, при котором сумма последовательности не превышает 60. Первое число - 6
Написать программу, которая определяет максимальное чётное число, при котором сумма...

Найти в матрице максимальное четное число
Найти в матрице максимальное четное число и подсчитать сумму элементов в строке с этим номером....

Найти максимальное число k, для которого существует точка прямой, покрытая k отрезками заданного набора
Дано n отрезков: , i=1,…,n. Найти максимальное число k, для которого существует точка прямой,...

Найти максимальное четное число среди 2 чисел
Суть задачи , нам даны 2 числа a и b надо найти максимальное четное число которое можно ...

Укажите, что будет напечатано в результате выполнения следующей программы
1)Укажите, что будет напечатано в результате выполнения следующей программы: Var a:array of...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх