Запишите в развернутом виде числа: а)a6=51231 б) а17(маленькие)=23511

А) А6=51231 -> 5×6^4 + 1×6^3 + 2×6^2 + 3×6^1 + 1×6^0
Понятно по принципу?

72

Объяснение:

Всего различных вариантов расставить 5 букв на 5 мест равно 5!=120. Из них нужно выкинуть те варианты, где две гласные стоят рядом.

В наборе всего две гласные, поэтому можно просмотреть позиции, где они могут стоять: (1,2), (2,3), (3,4), (4,5) - 4 варианта позиций. Число расставить их друг относительно друга равно 2!=2 (ЕА, АЕ).

При фиксированной расстановке гласных букв остается 3 места, на которые можно расставить 3 согласные буквы. Это можно сделать Таким образом, количество неподходящих вариантов равно 4*2*6=48.

Значит, число подходящих вариантов равно 120-48=72.

Program Ves;
Var a1,a2,a3,a4,t1,t2,t3,p,d,vp,b: Integer;
begin 
writeln ('программа вычисляет норму для данного ученика');
writeln ('введи массу учебника 1');readln (a1);
writeln ('введи массу учебника 2');readln (a2);
writeln ('введи массу учебника 3');readln (a3);
writeln ('введи массу тетради 1');readln (t1);
writeln ('введи массу тетради 2');readln (t2);
writeln ('введи массу тетради 3');readln (t3);
writeln ('введи массу пенала');readln (p);
writeln ('введи массу дневника');readln (d);
writeln ('введи массу портфеля');readln(vp);
b:=a1+a2+a3+a4+t1+t2+t3+p+d+vp;writeln ('общая масса портфеля= ' b);
if (b<=5) then writeln ('норма') else writeln ('ненорма');
readln;
end.