151 в десятичной
не меньше 20 символов
Var
x,y,z:real;
begin
Read(x,y,z);
Writeln('a = ', (x+y-z)/(x*x +2));
end.
<u>Пример:</u>
3 4 1.23
a = 0.524545454545455
Ответ: СТРЕЛА
123456
А Л
Е Р
Л Е
Р Т
С А
Т С
Сортируем буквы по алфавиту и выписываем в 1 столбик. В последний столбик вписываем данную последовательность.
Так как сдвиг циклический, то перед буквой в последнем столбике стоит буква в 1 столбике (т.е перед буквой Л стоит А, а перед буквой Р - Е и т.д. ). Заполняем все промежутки (см. 2 таб.). Выбираем нормальное слово.
1 таблица
СТРЕЛА
АСТРЕЛ
ЛАСТРЕ
ЕЛАСТР
РЕЛАСТ
ТРЕЛАС
2 таблица
АСТРЕЛ
ЕЛАСТР
ЛАСТРЕ
РЕЛАСТ
СТРЕЛА
ТРЕЛАС
Общее количество возможных вариантов = 11 (на первой остановке может выйти 0, 1, 2, ... или 10 пассажиров).
Искомая ёмкость = log(2)11 ≈ 3,46
function opkd(n: integer): integer;
var i,k: integer;
begin
k:=0;
for i:=1 to n do if n mod i=0 then k:=k+1;
opkd:=k;
end;
var n,i,k: integer;
begin
k:=0;
readln(n);
for i:=1 to n do if opkd(i) mod 2=0 then k:=k+1;
write(k);
end.