Вес разрядов справа от точки равен основанию системы в степени -1, -2, -3 ... итд (то есть 2^(-n), где n- номер разряда считая от первого справа от запятой).
Напишу веса разрядов начиная от первого справа от запятой, и далее, по порядку:
Двоичная система: 2^(-1)=1/2, 2^(-2)=1/4, 2^(-3)=1/8, 2^(-4)=1/16 ... итд
Восьмеричная: 8^(-1)=1/8, 8^(-2)=1/64, 8^(-3)=1/512 ... итд
Шестнадцатеричная: 16^(-1)=1/16, 16^(-2)=1/256, 16^(-3)=1/4096 ... итд
Вес разрядов слева от точки равен основанию системы в степени 0, 1, 2, 3 ... итд (то есть 2^(n-1), где n- номер разряда считая от первого слева от запятой).
Напишу веса разрядов начиная от первого слева от запятой, и далее, по порядку:
Двоичная система: 2^0=1, 2^1=2, 2^2=4, 2^3=8 ... итд
Восьмеричная: 8^0=1, 8^1=8, 8^2=64 ... итд
Шестнадцатеричная: 16^0=1, 16^1=16, 16^2=256 ... итд
В первом вложении приведена блок-схема по ГОСТ 19.701-90 (ISO 5807-85). СХЕМЫ АЛГОРИТМОВ, ПРОГРАММ, ДАННЫХ И СИСТЕМ. Обозначения условные и правила выполнения.
Алгоритм титрования на АЯ (Кумир) приведен во втором вложении.
3*20*30*5=9000бит или 1125 байт или 1,1 кбайт
Решение: перемножили 3 листа на 20 строк на 30 символов и получили кол-во символов всего сообщения. Умножили символы на 5 бит (в 32 символьном алфавите столько бит нужно для записи одного символа) и получили объём информации
Var A : array[1..12] of integer; i,max : integer;
begin
for i:=1 to 12 do
begin;
read(A[i]);
if A[i]>max then max:=A[i];
end;
Writeln(max);
end.
Нельзя преобразовать тип real к integer.
integer содержит только целые числа, а real действительные.
Программа работать не будет.
