A = 10
b = 2
a = a*b = 10*2 = 20
b = остаток от деления а на 3 = 20 mod 3 = 2
c = a - b = 20 - 2 = 18
PROGRAM B02;
CONST
max = 1000;
VAR
index:word;
sum:real;
BEGIN
index:=2;
sum:=1;
while (index<=max) do begin
sum:=sum+1/index;
index:=index+1;
end;
writeln('1+1/2+1/3+1/4....+ 1/',max,' = ', sum);
END.
Если зажать <span>F5 + DELETE</span> то нечего не случится
Представь члены этой суммы в таком виде: 2/3 = 2*1^2/3, 8/3 = 2*2^2/3,
18/3 = 2*3^2/3
То есть они все построены по общей формуле 2n^2/3.
Под "..." скрываются члены от 4 до 15.
S = 2*1^2/3 + 2*2^2/3 + 2*3^2/3 + 2*4^2/3 + 2*5^2/3 + 2*6^2/3 + 2*7^2/3 +
2*8^2/3 + 2*9^2/3 + 2*10^2/3 + 2*11^2/3 + 2*12^2/3 + 2*13^2/3 + 2*14^2/3 +
2*15^2/3
В цикле, естественно, надо менять номер n. Примерно так:
var n: integer, S: double;
BEGIN
S:=0; n:= 1;
While n <= 15 do
begin
S:= S + 2*n*n/3;
n:=n+1;
end;
write S;
END.