Var
x, y, a, b: real;
begin
readln(a, b);
if (a + b) > (a - b) then
writeln('x')
else writeln('y');
end.
Объём сообщения = 114688 битов (14*1024*8)
114688/28672 = 4 бита тратится на 1 символ
По формуле мощности алфавита 2⁴= 16
Ответ: 16 символов - мощность алфавита
1. Значение выражения в десятичной системе счисления: 4771
2. Переводим в пятеричную систему счисления, делим на 5 и собираем остатки в обратную сторону:
4771₁₀=123<span>041₅
Ответ: 1 цифра
</span>
4 бита об ученике школы № 1, следовательно это сообщение об одном из 16 событий, т.е. одном из 16 учеников. Значит в школе №1 16-5-5=6 учеников
Program MaxD;
// Вводятся площади квадратов, окончание ввода по значению 0
// Найти диагональ максимального размера.
// Поскольку диагональ равна квадратному корню из удвоенной площади,
// надо найти максимальную площадь, а затем вычислить диагональ.
var
S,SMax:real;
begin
SMax:=0;
writeln('Вводите площади квадратов, 0 - конец ввода');
repeat
readln(S);
if s>sMax then sMax:=s
until s=0;
writeln('Максимальная длина диагонали равна ',sqrt(2*sMax))
end.
Тестовое решение:
Вводите площади квадратов, 0 - конец ввода
5
10
12
13.6
11
18
0
Максимальная длина диагонали равна 6