Форум Всеукраїнської інтернет-олімпіади NetOI

{$APPTYPE CONSOLE}
{$B-,R-,O+}
const
 maxn=10000;
var
 a,b,x:smallint;
 i,j:smallint;
 d:array[0..9] of longint;
function prost(a:smallint):boolean;
var
 i:smallint;
begin
 if (a mod 2=0) then
  begin
   if a=2 then prost:=true else
    prost:=false;
  end else
  begin
    i:=3;
    while(i*i<=a)and(a mod i<>0)do inc(i,2);
    if a mod i=0 then
     prost:=false else
     prost:=true;
  end;
end;
begin
 readln(a,b);
 fillchar(d,sizeof(d),0);
 for i:=a to b do
  if prost(i) then
   begin
    x:=i;
    while(x>0)do
     begin
      inc(d[x mod 10]);
      x:=x div 10;
     end;
   end;
 x:=0;
 for i:=1 to 9 do
  if d[i]>d[x] then
   x:=i;
 writeln(x);    
end.

{$APPTYPE CONSOLE}
{$B-,R-,O+}
const
 maxn=10000;
var
 a,b,x:smallint;
 i,j:smallint;
 p:array[2..maxn] of boolean;
 d:array[0..9] of longint;
begin
 readln(a,b);
 fillchar(p,b,1);
 for i:=2 to round(sqrt(b)) do
  if p[i] then
   begin
    j:=i*i;
    while(j<=b)do
     begin
      p[j]:=false;
      inc(j,i);
     end;
   end;
 fillchar(d,sizeof(d),0);
 for i:=a to b do
  if p[i] then
   begin
    x:=i;
    while(x>0)do
     begin
      inc(d[x mod 10]);
      x:=x div 10;
     end;
   end;
 x:=0;
 for i:=1 to 9 do
  if d[i]>d[x] then
   x:=i;
 writeln(x);    
end.

{$APPTYPE CONSOLE}
{$B-,R-,O+,N+}
const
 maxn=10000;
type
 interval=record
  l,r:extended;
 end;
var
 n,i:smallint;
 a:array[1..maxn] of interval;
 l,r:extended;
 ans:extended;
procedure Sort(l,r:smallint);
var
 i,j:smallint;
 k:extended;
 x:interval;
begin
 if l<r then
  begin
   i:=l;
   j:=r;
   k:=a[l+random(r-l+1)].l;
   repeat
    while a[i].l<k do inc(i);
    while a[j].l>k do dec(j);
    if i<=j then
     begin
      x:=a[i];
      a[i]:=a[j];
      a[j]:=x;
      inc(i);
      dec(j);
     end;
   until i>j;
   Sort(l,j);
   Sort(i,r);
  end;
end;
begin
 readln(n);
 for i:=1 to n do
  readln(a[i].l,a[i].r);
 Sort(1,n);
 ans:=0;
 l:=a[1].l-1;
 r:=a[1].l-1;
 for i:=1 to n do
  if r<a[i].l then
   begin
    ans:=ans+r-l;
    l:=a[i].l;
    r:=a[i].r;
   end else
  if a[i].r>r then
   r:=a[i].r;
 ans:=ans+r-l;  
 writeln(ans:1:1);  
end.

{$APPTYPE CONSOLE}
{$B-,R-,O+}
const
 maxn=1000;
var
 n,i,j:smallint;
 a:array[1..maxn] of smallint;
 ans,index:smallint;
begin
 readln(n);
 for i:=1 to n do
  read(a[i]);
 ans:=1;
 index:=1;
 for i:=1 to n-1 do
  begin
   j:=0;
   while(i-j>1)and(i+j<n)and(a[i-j-1]=a[i+j+1])do inc(j);
   if 2*j+1>ans then
    begin
     ans:=2*j+1;
     index:=i-j;
    end;
   j:=0;
   while(i-j>=1)and(i+j+1<=n)and(a[i-j]=a[i+j+1])do inc(j);
   if 2*j>ans then
    begin
     ans:=2*j;
     index:=i+1-j;
    end;
  end;
 writeln(index,' ',ans); 
end.

{$APPTYPE CONSOLE}
{$B-,R-,O+}
const
 maxn=100;
 base=257;
 modul=299993;
var
 s:string;
 a:array[1..maxn] of smallint;
 n,i,j,k:smallint;
 f:array[1..maxn] of longint;
 tek,maxdigpow:longint;
 flag:boolean;
begin
 readln(s);
 n:=length(s);
 for i:=1 to n do
  a[i]:=Ord(s[i])-Ord('a');
 flag:=false;
 k:=n div 2+1;
 while(k>0)and(not flag)do
  begin
   dec(k);
   tek:=0;
   maxdigpow:=1;
   for i:=1 to k do
    begin
     tek:=(tek*base+a[i])mod modul;
     maxdigpow:=(maxdigpow*base)mod modul;
    end;
   f[1]:=tek;
   for i:=2 to n-k+1 do
    begin
     tek:=(tek*base+modul-(maxdigpow*a[i-1])mod modul+a[i+k-1])mod modul;
     f[i]:=tek;
    end;
   for i:=k+1 to n-k+1 do
    if f[i]=f[i-k] then
     begin
      j:=0;
      while(j<k)and(a[i+j]=a[i-k+j])do inc(j);
      if j=k then
       flag:=true;
     end;
  end;
 writeln(k);
end.