Html> chead>

Моя страница

shl> мое расписание уроков

Кутлумуратов Валерий Евгеневичь

я ученик 8 класса Мне 14 лет

Понидельник
Вторник
Среда
Четверг Пятница

Субота
1. Химия
2. Узб. яз.
3.Инф.и ИКТ
4. Инф. и икт
Узб. яз.

1. Алгебра
Биология
Узб. яз.
Узб.яз.
1. Литература
Геометрия
3. Всеобщая история
4. Право 1. Химия
2. Алгебра
Рус. яз.
Англ.яз.
1. Геометрия

Англ. яз
узб. яз
4. Литература
История узбекистана
Биология
1. Всеобщая история
2.Рус.яз.
3. Англ. яз.
Алгебра

Program Project1;

var m:array [0..14] of integer; i:integer;

function IsPositive(a:integer):boolean;
begin
  result:=(a>-1);
end;

procedure work;
var min, max, count:integer;
begin
  count:=0;
  min:=m[0];
  max:=0;
  for i:=0 to 14 do begin
    if IsPositive(m[i]) then begin
      inc(count);
      if m[i]>max then max:=m[i];
      if m[i]<min then min:=m[i];
    end;
  end;
  writeln('MAX: ', max);
  writeln('MIN: ', min);
  writeln('Count: ', count);
end;

begin
  for i:=0 to 14 do begin
    write('n: ');
    readln(m[i]);
  end;

  work;

  readln;
end.

Таких систем исчисления всего две.  Основание а = 9 и основание а =367, но в системе с основанием 367 проблематично записывать числа (символов не хватит).
Если число 3306(10) в системе исчисления с основанием а заканчивается цифрой 3, то тогда
число 3303 делится на основание системы а.
Отсюда алгоритм поиска.  Находим все делители числа 3303.
3303 = 3*1101 = 3*3*367.  Число 367 - простое. Поэтому основаниями системы исчисления 
могут быть только 3, 9, 367.  Основание =3 не подходит, так как по условию число должно заканчиваться на 3  -> основание больше 3.  Остаются 9, 367.