01 семестр / Лабораторные работы / Все готовые лабы по паскалю / 3 лабораторка / 3 задание

3. Дано натуральное число n и действительное число x. Вычислить:

• Текст программы:

var

k, m, n: integer;

i, s, x: real;

begin

write ('n=');

readln (n);

write ('x=');

readln (x);

i:=0;

s:=0;

for k:=7 to n do begin

for m:=k to n do

i:=(x+k) /m;

s:=s+i

end;

writeln ('s=',s);

readln; readln;

end.

• Исходные данные: n=8 and x=3; Результат: s=2.6250000000E+00