Var n,i:integer; s:real;
begin
readln(n);
s:=0;
for i:=0 to n do s:=s+1/(2*i+1);
writeln('s = ',s);
end.
Пример:
5
<span>s = 1.878210678210678e+00</span>
А:=9 (a=9 Мы присвоили переменной а значение 9; b=0 Мы не присваивали значение b)
b:=a mod 5(a=9 Мы не изменяли значение a; b=4(Функция mod возвращает остаток от деления) Мы разделили a на b(9 на 5) и у нас получился остаток 4)
b:=b*10(a=9 Мы не изменяли значение a; b=40 Мы умножили значение b на 10 и результат присвоили переменной b)
a:=b div 5-3(a=5 Мы значение b(40) разделили на 5 и вычли 3; b = 40 Мы не изменяли значение b)
Вообщем:
a=9 b=0
a=9 b=4
a=9 b=40
a=5 b=40
508,03=5*10^2+0*10^1+8*10^0+0*10^-1+3*10^-2
1101,001=1*2^3+1*2^2+0*2^1+1*2^0+0*2^-1+0*2^-2+1*2^-3
C=12 E=14 D=13 A=10 значит
CE,DA=12*16^1+14*16^0+13*16^-1+10*16^-2
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrGen(10,i->3*(i+1)); a.Println;
end.
<u>Результат</u>
3 6 9 12 15 18 21 24 27 30