Из 800 учащихся школы на данный момент посещают школу N человек. Определить, через сколько дней число посещающих школу составит менее половины учащихся школы, если число не больных школьников каждый день уменьшается на 10% от предыдущего дня.
pascal

1)
function numb(n:integer):integer;
   var
       n,ch,st,max:integer;
   begin
      st:=1;
      max:=-1;
      ch:=n mod 10;
      n:=n div 10;
      while(n>0)do
         begin
             ch:=ch+(n mod 10)*st;
             n:=n div 10;
             st:=st*2;
          end;
       while(ch>0)do
           begin
                if(ch mod 10>max)then
                     max:=ch mod 10;
                ch:=ch div 10;
           end;
       numb:=max;
end;
2)
function yravn(a,b:integer):integer;
   begin
      yravn:=-b div a;
   end;

1. "Современный вариант"
// PascalABC.Net 3.0, сборка 1076
begin
  var t:=ArrRandom(31,18,39);
  Writeln('Температуры июля',#13#10,t);
  Writeln('Температуры двух самых теплых дней: ',
  t.OrderByDescending(x->x).Take(2))
end.

Тестовое решение:
Температуры июля
[25,25,32,26,30,26,18,31,28,31,24,19,22,34,23,31,27,26,30,21,21,20,18,25,23,22,32,18,37,24,25]
Температуры двух самых теплых дней: [37,34]

2. "Школьный вариант."
// PascalABC.Net 3.0, сборка 1076
var
  t:array[1..31] of integer;
  i,max,max2:integer;
begin
  Randomize;
  Writeln('Температуры июля');
  max:=0; max2:=0;
  for i:=1 to 31 do begin
    t[i]:=Random(22)+18;
    Write(t[i],' ');
    if t[i]>max then begin max2:=max; max:=t[i] end
    else
      if t[i]>max2 then max2:=t[i]
    end;
  Writeln;
  Writeln('Температуры двух самых теплых дней: ',max,', ',max2)
end.

Тестовое решение:
Температуры июля
23 29 22 29 37 37 31 35 18 34 31 31 27 22 27 20 19 24 31 33 26 25 22 28 31 32 21 37 38 37 20
Температуры двух самых теплых дней: 38, 37