E1A0₁₆ = 1110 0001 1010 0000₂
Считаем единицы, их 6
Itranslateтакая программка Где вы можете переводить слова
1.Для написания,редактирования текста
2.Да можно
3. .doc .txt .epub .fb2 djview .pdf
4. .doc
5.точно не скажу:)
Var
day,a,mon,i,i1,max:integer;{объявляем переменные}
begin
readln(mon,day);{вводим месяц и день}
a:=day;
for i:=mon to 12 do begin
writeln;
write(i,': ');
case mon of{сколько дней в месяце}
9:max:=30;
10:max:=31;
11:max:=30;
12:max:=31;
end;
for i1:=a to max do begin
if a>max then break;
write(a,' ');
a:=a+7;
end;
a:=a-max;
end;
end.
помоему я уже делал эту задачу