Еще есть в опера и опера есть на телефоне теперь тоже
var N,i:integer;
begin
readln(n);
while (n mod 10=0) do begin inc(i); n:=n div 10; end;
writeln(i);
end.
n = int(input('Введите количество чисел: '))
c = 0
print('Вводите',n,'чисел по очереди')
for i in range(1,n+1):
a = int(input())
if a % 2 != 0:
c += 1
print('Нечётные элементы составляют',c/(n/100),'процентов')
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
var c:=s.ToWords.Where(t->t.Length>1).SelectMany(w->w.Pairwise)
.Select(t->t[0]+t[1]).GroupBy(t->t).Select(t->(t.Key,t.Count))
.OrderByDescending(t->t[1]).ThenByDescending(t->t[0]).First[0];
Writeln('Чаще других встречается цепочка "',c,'"')
end.
<u>Пример</u>
TWAS BRILLIG AND THE SLITHY TOVES DID GYRE AND GIMBLE IN THE WABE ALL MIMSY WERE THE BOROGOVES AND THE MOME RATHS OUTGRABE
Чаще других встречается цепочка "TH"
<u>Замечание:</u> ограничение на длину строки увеличено до 2 млн. символов.