Var n,k : Integer;
Begin
k:=-1;
Readln(N);
While N>0 do
Begin
If (not Odd(N mod 10)) and ((N mod 10)>k) then k:=N mod 10;
N:=N div 10;
end;
If k=-1 then Writeln('не найдено') else Writeln(k);
end.
846 | 423 | 211 | 105| 52 | 26 | 13 | 6 | 3 | 1
---------------------------------------------------------
0 | 1 | 1 | 1 | 0 | 0 | 1 | 0 | 1 | 1 число записывается справа налево:
846₁₀= 1101001110₂= 1516₈ = 34E₁₆
1533 | 716 | 358 | 179 |89 | 44| 22| 11 | 5 | 2 | 1
--------------------------------------------------------------
1 | 0 | 0 | 1 | 1 | 0 | 0 | 1 | 1| 0 | 1
1533₁₀=10110011001₂ = 2775₈ = 5FD₁₆
1101001110₂ + 10110011001₂ =100011100111₂
1516₈ + 2775₈ = 4513₈
34E₁₆ + 5FD₁₆ = 94B₁₆
А2=4-3=1
В2=3-1*2=1
С2=4 : 2=2
D2=3+1=4
D2 : С2 : В2 : А2 = 4 :2 : 1 :1 ----->данное отношение соответствует
диаграмме 4)
Не легкая задача но решить можно попробуте посщитать на калькуляторе удачи!!!!!!
Var a,i,b:longint;
begin
b:=1;
readln(a);
for i:=2 to a do
b:=b*i;
writeln(b);
<span>end.
вторую извини, не знаю.</span>