Ответ:
47
Объяснение:
Задачу раскручиваем с конца от 25 вычитанием 1 и делением на 2 доходим до двойки. Потом наоборот, поднимаемся вверх, заполняя в скобках количество возможных вариантов получить данное число(по сути упрощённая в вычислениях рекурсия от 2 до 25).
Program sg3;
uses crt;
var i,a,k, sum: integer;
begin
clrscr;
write('Введите число: ');
readln(a);
k:=0;
for i:=2 to a div 2 do
if a mod i =0 then
k:=k+1;
if k=0 then
write('Простое')
else
writeln('Составное');
while (a<>0) do
begin
sum:=sum+(a mod 10);
a:=a div 10;
end;
write('Сумма цифр= ',sum);
<span>end.</span>
Var o,l:integer;
a,b,max2:real;
procedure rip (var x,t:real; i:integer);
var q,min,max:integer;
a1:array [1..10] of integer;
begin
writeln ('Введите через пробел оценки за короткую программу танцора номер ',i);
For q:=1 to 10 do begin
read (a1[q]);
t:=a1[q]+t;
end;
min:=a1[1];
max:=min;
For q:=2 to 10 do begin
If a1[q]<min then min:=a1[q];
If a1[q]>max then max:=a1[q];
end;
t:=(t-max-min)/8;
writeln ('Введите через пробел оценки за произвольную программу танцора номер ',i);
For q:=1 to 10 do begin
read (a1[q]);
x:=a1[q]+x;
end;
min:=a1[1];
max:=min;
For q:=2 to 10 do begin
If a1[q]<min then min:=a1[q];
If a1[q]>max then max:=a1[q];
end;
x:=(x-max-min)/8;
end;
begin
For o:=1 to 8 do begin
rip (a,b,o);
If (a+b)>max2 then begin max2:=a+b; l:=o; end;
end;
writeln (l);
end.
По иерархическому принципу. Сначала домены верхнего уровня, затем второго и третьего
Всего 3-буквенных слов, составленных из этих букв без ограничений на число букв А, 4^3 = 64 (на каждое из трёх мест претендуют 4 буквы, бувы можно выбирать независимо).
Из них не подходят (не содержат букв А) 3^3 = 27 (тут на каждое место по 3 буквы).
Тогда подходящих 64 - 27 = 37.
