Перевод из бит в мегабайт в с :80*10^20 бит в секунду = 0.00001 мегабайт в секундуперевод 1 м 20с в секунды : 80с находим файл : 80с * 0.00001 мегабайт в секунду = 0,0008 мегабайт
<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
По формуле или
(N - мощность алфавита, i - вес одного символа)
Вес одного символа бит (округляем в большую сторону так как кусками тут быть не может)
Вес одного символа бит (округляем в большую сторону так как кусками тут быть не может)
Общий вес текста/сообщения
I = K * i (K - кол-во символов, i - вес одного символа)
Отношение объемов информации раз
CLS
INPUT a
m=0
FOR I=1 TO a
INPUT b
IF (b mod 10=8) AND b>m THEN m=b
END IF
NEXT
PRINT m
END