Вклассе 1000q учеников, из них 120q девочек и 110q мальчиков. найдите q

Не сразу сообразил, что q -это основание системы счисления, в которой записаны эти три числа. напишу два способа решения. решение 1 (логическое, попроще): по условию понятно, что (количество учеников равно числу девочек плюс число мальчиков) посмотрим, как происходит поразрядное сложение этих двух чисел: в первом разряде:   -здесь вопросов нет во втором разряде:   -это значит, что цифры три в этой системе счисления нет (к двойке добавили единицу, но тройку не получили, а получили обнуление этого разряда и естественно единица добавилась к следующему разряду, то есть полностью сумма выглядит так: ). итак, в этой системе используются только три цифры: 0, 1, 2.  значит это система с основанием 3.  ответ: q=3. решение 2 (через уравнение, посложнее): возьмём уравнение, написанное в начале способа №1, но числа распишем по правилам перевода из системы с любым основанием в десятичную систему: (1*q^2 +2*q^1 +0*q^0) + (1*q^2 +1*q^1 +0*q^0) = (1*q^3 +0*q^2 +0*q^1 +0*q^0) а далее будем выражения и решать полученное уравнение по обычным правилам : q^2 + 2*q + q^2 + q = q^3 q^3 - 2*q^2 - 3*q = 0 q * (q^2 - 2*q - 3) = 0 это произведение будет равно нулю если q=0,  либо если  q^2 - 2*q - 3 = 0 решим это квадратное уравнение: итак, корни исходного (кубического) уравнения- числа 0,  3  и  -1 ноль и минус один по условиям нашей не подходят, т.к. основание системы счисления не может быть отрицательным или равным нулю. поэтому, имеем только один ответ: основание q=3. по желанию можно выполнить проверку нашего решения: переведём три числа, указанные в условии из троичной системы счисления в десятичную (перевод уже расписан в начале способа №2): 120₃ = 1*3^2 + 2*3^1 = 9 + 6 = 15₁₀  (девочек) 110₃ = 1*3^2 + 1*3^1 = 9 + 3 = 12₁₀  (мальчиков) 1000₃ = 1*3^3 = 27₁₀  (учеников всего) суммируем первые два полученных числа: 15 + 12 = 27 сумма сходится, значит решение верно.

var a:array [1..5] of integer;

i,max,k,j: integer;

begin

Write ('Введите элементы массива: ');

for i:= 1 to 5 do  

read (a[i]);

max:=a[1];

for i:= 1 to 5 do  

if a[i]>max then max:=a[i];

Writeln ('Максимальный элемент: ',max);

Writeln ('Элементы с непарными индексами: ');

for i:= 1 to 5 do  

if i mod 2 <>0 then write (a[i], ' ');

for i:= 1 to 4 do

for j:= i+1 to 5 do  

if a[i]<a[j] then  

 begin

 k:=a[i];

 a[i]:=a[j];

 a[j]:=k;

 end;

 

 writeln();

 writeln ('Массив, упорядоченный в порядке убывания: ');

for i:= 1 to 5 do  

write(a[i], ' ');

end.

Объяснение:

ключ :1 Тмпгбнй еёмф оё рпнпзёщэ.

ключ:2 Унрдвок ёжнх срорижъю

ключ:3 Фосегпл жзоц рз тспсйзыя

ключ:4 Хптёдрм зипч си утрткиьа

ключ:5 Цружесн ийрш тй фусулйэб

ключ:6 Чсфзёто йксщ ук хфтфмкюв

ключ:7 Штхижуп клтъ фл цхухнляг

ключ:8 Щуцйзфр лмуы хм чцфцомад

ключ:9 Ъфчкихс мнфь цн шчхчпнбе

ключ:10 Ыхшлйцт нохэ чо щшцшровё

ключ:11 Ьцщмкчу опцю шп ъщчщспгж

ключ:12 Эчънлшф прчя щр ыъшътрдз

ключ:13 Юшыомщх рсша ъс ьыщыусеи

ключ:14 Ящьпнъц стщб ыт эьъьфтёй

ключ:15 Аъэроыч туъв ьу юэыэхужк

ключ:16 Быюспьш уфыг эф яюьюцфзл

ключ:17 Вьятрэщ фхьд юх аяэячхим

ключ:18 Гэаусюъ хцэе яц баюашцйн

ключ:19 Дюбфтяы цчюё ач вбябщчко

ключ:20 Еявхуаь чшяж бш гвавъшлп

ключ:21 Ёагцфбэ шщаз вщ дгбгыщмр

ключ:T22 Жбдчхвю щъби гъ едвдьънс

ключ:23 Звешцгя ъывй ды ёегеэыот

ключ:24 Игёщчда ыьгк еь жёдёюьпу

ключ:T25 Йджъшеб ьэдл ёэ зжежяэрф

ключ:26 Кезыщёв эюем жю изёзаюсх

ключ:27 Лёиьъжг юяён зя йижибятц

ключ:OT28 Мжйэызд яажо иа кйзйвауч

ключ:29 Нзкюьие абзп йб лкикгбфш

ключ:T30 Оиляэйё бвир кв млйлдвхщ

ключ:31 Пймаюкж вгйс лг нмкмегцъ

ключ:32 Ркнбялз гдкт мд онлнёдчы