ПАСКАЛЬ. Даны натуральное число n, действительное число x. Вычислить
ПАСКАЛЬ. Даны натуральное число n, действительное число x. Вычислить
Ответ(ы) на вопрос:
Гость
Вот, вложенный цикл)
var
x, res: real;
n, k, m: integer;
begin
writeln('Enter n, x:');
readln(n, x);
res := 0;
for k := 1 to n do
for m := k to n do
res := res + (x + k) / m;
writeln(res);
end.
Не нашли ответ?
Похожие вопросы