//Ошибка в if.
//В принципе можно обойтись и без вычисления s. Просто
//прерывать цикл при несовпадении двух шестеренок и
//выводить NO
var
n, s, i, m, m1: int64;
begin
s := 0;
Read(n, m1);
for i := 1 to n - 1 do
begin
Read(m);
if m = m1 then
S := s + 1;
m := m1;
end;
if (s = n - 1) then
Write('YES');
if (s <> n - 1) then
Write('NO');
end.
Рассмотрим возможные варианты кода:
11222 кол. для каждого случая =5!/(2!*3!) =5*4/2=10
11333 всего: 10*3 =30
11444
------------------------------------
11223 5!/(2!*2!*1!) = 5*4*3/2=30
11224 всего: 30*6 =180
11332
11334
11442
11443
-----------------------------------------
11234 5! / (2!1!1!1!) = 5*4*3=60
------------------------------------------------------------------------
Итого: 180+30+60 = 270
<em>Если вы имели в виду, что мощность алфавита = 64, то:</em>
Дано:
K = 20
N = 64
Решение:
N = 64 => i = 6;
I = K * i
I = 20 * 6 = 120(бит)
Ответ: I = 120 бит.
1.Боковая площадь пов-ти конуса
var
r, l: integer;
begin
readln(r, l);
writeln(pi * r * l);
end.
2. Полная площадь пов-ти конуса
var
r, l: integer;
begin
readln(r, l);
writeln(pi * r * (r+l));
end.
Примечание: r- радиус, l - образующая
Если l неизвестна,ее можно вычислить по формуле l = sqrt(r*r+h*h), где h - высота конуса
Решение данной задачи смотрите в прикрепленном скриншоте: