Получается, мы должны найти кол-во чисел в диапазоне от минимального числа из одиннадцати цифр - это единица и десять нулей, до максимального из тридцати цифр - это число состоящее из тридцати девяток. Данное кол-во чисел равно разности наибольшего и наименьшего. Наименьшее число состоит из единицы и нулей, как мы поняли раньше, а значит только одна из цифр числа с тридцатью девятками изменится и станет восьмеркой. Следовательно, в таком числе будет двадцать девять девяток и одна восьмерка, значит ответом будет: Двадцать девять.
К постоянным, так как это постоянное число π (пи).
1.
var i,n:integer; s:real;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('s = ',s);
end.
Пример:
n = 5
s = 2.28333333333333
2.
var x,a,s:real; i:integer;
begin
write('x = '); readln(x);
a:=x; s:=x; i:=1;
while i<11 do
begin
i:=i+2;
a:=x*x*a;
s:=a/i;
end;
writeln('s = ',s);
end.
Результат:
x = 3
s = 16104.2727272727
(e2+e3+e4)/3=3, значит сумма e2:e4 = 9
9+5=14
ответ: 14
//PascalABC.Net 3.1 сборка 1200
uses System;
var
n: longint;
begin
var s := new List<longint>();
repeat
Readln(n);
if n <> 0 then s.Add(n);
until n = 0;
Println(s);
var av := s.Average;
Println(s.Where(x -> x > av));
end.