Надо поставить числа в порядке убывания, на картинке показано пошагово.
Ответ:
128
Объяснение:
Знаю решение комбинаторикой:
Чтобы выбрать 1 цифру нам потребуется 4 варианта (п, е, т, я). для выбора второй цифры мы можем использовать только 2 варианта.( если же первая буква согласная, то вторая - либо е либо я. если первая буква гласная, то вторая - либо п либо т)
для третьей буквы и для всех последующих тоже 2 варианта (по той же логике). в итоге нам нужно перемножить все варианты: 4•2•2•2•2•2=128
Program znanija;
var a,b,c:integer;
begin
write ('Введите 3 числа: ');
read(a,b,c);
if a<b and a<c and b<c then
begin
a*2;
b*2;
c*2;
write ('Числа: ',a, b, c);
end
else write ('Числа упорядочены не по возрастанию');
end.
Var c,i:integer;
function sov(k:integer):boolean;
var j,s:integer;
begin
result:=false;
s:=0;
for j:=1 to k div 2 do if k mod j=0 then s:=s+j;
if s=k then result:=true;
end;
begin
read(c);
i:=1;
while (sov(c+i)=false) and (sov (c-i)=false) do i:=i+1;
if sov(c+i)=true then writeln(c+i) else writeln(c-i)
<span>end.</span>