Если изображение черно-белое, то для кодирования одной точки (пикселя) достаточно одного бита.
бит.
Помогите округлить десятичные дроби : 1) 7,3605 , 0,9421 , 3,1502 , 12,0374 , 9,5601 - до десятых 2) 0,67509 , 4,23265 , 29,4807
Ольгаволгда
<em>1) 7,3605=7,4...0,9421=0,9...3,1502=3,2...12,0374=12...9,5601=9,6 2)0,67509=0,675...4,23265=4,233...29,48075=29,481...29,48075=29,481 </em>
99=01100011
110=11011110
-95=11111101
-115=11100111
Нужно просто каждое число делить на два пока в частном не получится 0, а потом остатки записать в обратном порядке
Var a,b,max:integer;
begin
readln(a);
max:=-maxint;
while a>0 do
begin
b:=a mod 10;
a:=a div 10;
if b>max then max:=b;
end;
writeln(max)
end.
Это PascalABC, но на должно сработать и на турбе)
var
s: string;
i: longint;
j: byte;
begin
writeln('Конец стиха - строка пустая');
repeat
for j := 1 to length(s) do
if (lowcase(s[j]) in ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я']) then
i := i + 1;
readln(s);
until s = '';
writeln(i, ' гласных букв');
end.