X. Y. Комментарий
4. 35 X >=Y ? нет. тогда идём на цикл по стрелке НЕТ
4+2=6. 35-6=29. X>=Y? Нет. Опять идём на цикл по стрелке НЕТ
6+2=8. 29-8=20. X>=Y? Нет. Делаем цикл по стрелке НЕТ
8+2=10. 20-10=10. X>=Y? Да. Выходим из цикла по стрелке ДА
1)1 байт = 8 бит
12288/8 = 1536 байт
2)К=2048, I-1/512 Mб, i-?
решение: I=K*i i=I/K
I=1/512*1024*1024*8=16384 бит
i=I/K=16384/2048=8 бит
если i=8 бит, то мощность алфавита равна N=256 символов (т.к. 2 в 8 степени равно 256)
<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>Задача М</em>
begin
var a:=ReadInteger.ToString.AdjacentGroup;
var f:=False;
foreach var g in a do
if g.Count>1 then begin
Write('YES'); f:=true; break
end;
if not f then Write('NO')
end.
<u>Примеры</u>
5221
YES
1232
NO
<em>Задача О</em>
begin
var s:=ReadInteger.ToString;
if s.Length<>(s.Distinct).Count then Write('YES')
else Write('NO')
end.
<u>Примеры</u>
212
YES
12345
NO
<h3>в первом задании выйдет квадрат на две клетки.во втором задании 1-2,2-3,3-1.надеюсь понятно</h3>