begin
var a := ReadInteger('Возраст Антона:');
var b := ReadInteger('Возраст Бориса:');
var v := ReadInteger('Возраст Виктора:');
if (a > b) and (a > v) then begin Println('Антон старше всех');exit; end;
if (b > a) and (b > v) then begin Println('Борис старше всех');exit; end;
if (v > a) and (v > b) then begin Println('Виктор старше всех');exit; end;
if (a > v) and (a = b) then begin Println('Антон и Борис старше Виктора.');exit; end;
if (a > b) and (a = v) then begin Println('Антон и Виктор старше Бориса.');exit; end;
if (v > a) and (v = b) then begin Println('Виктор и Борис старше Антона.');exit; end;
if (a = b) and (b = v) then begin Println('Виктор, Борис и Антон одного возраста.');exit; end;
end.
Ты должна сама настроить цветовую гамму.При желании сохрани в палитре.
<em>Решение:</em>
<em>1 - В</em>
<em>2 - С</em>
<em>3 - А</em>
<em>4 - E</em>
<em>5 - D</em>
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₁₆