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.
Вес одной секунды стерео-файла: 48000*24*2 бит
Вес одной секунды моно-файла: 24000*16*1 бит
(48000*24*2):(24000*16*1) = (2*24*2) : 16 = 6.
Исходный файл больше в 6 раз.
4 Кб = 4*1024*8 = 32768 бита
433*433 = 187489 пикселей
187489/32768 ≈ 5 бит на 1 пискель2
2^5 = 32
Ответ: 32 цвета