Var i:integer; a,c:real; begin c:=0; Writeln('Введите четыре произвольных числа'); for i:=1 to 4 do begin Read(a); c:=c+Int(a) end; c:=c/4; Writeln('Среднее арифметическое равно ',c) end.
Тестовое решение: Введите четыре произвольных числа 4.7 5.03 4.12 5 Среднее арифметическое равно 4.5
Итак первые два символа кодируются кодовыми словами 0 и 10. Найдём для оставшихся трех символов наиболее короткое представление, удовлетворяющее условию Фано. Из двузначных чисел можно взять 11, но тогда невозможно подобрать трехзначное число для четвертого символа, по этому не берем. Единственное подходящее трехзначное число - 110 (111 не подходит по той же причине. что и 11). Аналогично выбираем числа 1110 и 11110. В итоге получается ряд: 0, 10, 110, 1110, 11110. Общая длина = 1+2+3+4+5=15
Итак первые два символа кодируются кодовыми словами 0 и 10. Найдём для оставшихся трех символов наиболее короткое представление, удовлетворяющее условию Фано. Из двузначных чисел можно взять 11, но тогда невозможно подобрать трехзначное число для четвертого символа, по этому не берем. Единственное подходящее трехзначное число - 110 (111 не подходит по той же причине. что и 11). Аналогично выбираем числа 1110 и 11110. В итоге получается ряд: 0, 10, 110, 1110, 11110. Общая длина = 1+2+3+4+5=15
i:integer;
a,c:real;
begin
c:=0;
Writeln('Введите четыре произвольных числа');
for i:=1 to 4 do
begin
Read(a); c:=c+Int(a)
end;
c:=c/4;
Writeln('Среднее арифметическое равно ',c)
end.
Тестовое решение:
Введите четыре произвольных числа
4.7 5.03 4.12 5
Среднее арифметическое равно 4.5