Var c,r:real;
const pi=3.1415;
begin
write('введите радиус окружности');
read(r);
c:=2*pi*r;
writeln('длина окружности равна', c);
end.
99 (10) = 1100011 (2)
т.е. для хранения чисел от 0 до 99 (100 штук) нужно 7 бит. Устанавливаем соответствие между 100 разными символами и числами от 0 до 99 и получаем желаемое.
для 200 -1 = 199 (10) = 11000111 (2) => 8 бит
для 500 -1 = 499 (10) = 1 1111 0011 (2) => 9 бит
Сочинение на тему
Безопасность в интернет
В интеренете ходит очень много вирусов. Чтоб на них не попасть надо быть очень акуратным не надо саходить на незнокомые сайты без родителей. Надо заходить только на провериные сайты.
Var N,S,a0, i: integer;
begin;
N:=0;
S:=0;
read(N);
read(S);
a0:= S div N - N + 1;
write(a0);
for i:=1 to N-1 do
begin
write(' ', a0 + 2*i);
end;
end.
Приведем все в десятичную для удобства
1110101 = 117
476 = 318
217 = 535
13D = 317
Следовательно,
Ответ:
максимальный = 217 в шестнадцатеричной
минимальный = 1110101 в двоичной