Эгоизм нервозность плихические растройства общительность харизмотичность
var s: real; n,i: integer;
begin
write('Введите число N: ');
readln(n);
if n>5 then begin
s:=0;
for i:=5 to n do s:=s+i;
s:=s/(n-5+1);
writeln(s);
end else writeln('Введите другое число, больше 5');
end.
Var
a,a1,a2:integer;
Begin a:=10;
Write('Двузначные числа, сумма цифр которого равна 12: ');
while a<100 do
begin
a1:=a mod 10;
a2:=a div 10;
if (a1+a2)=12 then write(a,', ');
a:=a+1;
end;
<span>End.
</span>
10
префиксное свойство - один код не может быть префиксом другого, значит (в данной задаче) не может начинаться с 00, 01, 11.
значит первые две цифры = 10. других нет, так как минимальный надо, а вероятности не заданы.