Информатика
Архивный вопрос
ПАСКАЛЬ. Даны натуральное число 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.
1 комментария:
Спасибо