var x, L, M: integer;
begin
readln(x);
L := 0;
M := 0;
while x > 0 do
begin
L := L + 1;
if x mod 2 = 0 then
M := M + (x mod 10) div 2;
x := x div 10;
end;
writeln(L);
writeln(M);
end.
катеты идут от прямого угла, напротив гипотенуза
от точки вправо- длина 1 катета
от точки вверх-длина 2 катета
полученые отрезки соединяем
Язык pascal:
if A=0 then A:=A + 3 else A:=0;
Выход:
А=0 : 3;
A=-1 : 0;
A=8 : 0.
513(10)=201 в шестнадцатиричной сс
Обычный метод деления пополам. 8/2=4, 4/2=2, 2/2=1. Три вопроса.
1) четвертая или меньше? "да" 2)Вторая или меньше? "нет". 3)Третья? "нет".
Значит четвёртая. Можно и другим направлением по такой схеме.