
Lazomogeb
5 год назад
Решить задачу y=1/1+1/2+1/3+1/4...+1/N на языке программирования паскаль при помощи алгоритма.
ОТВЕТЫ

Fox Thomas
Oct 24, 2020
var
n, i: word;
sum: real;
begin
write ('n = ');
readln (n);
sum := 0;
for i := 1 to n do
sum := sum + 1/(i);
writeln (sum:6:5);
end.
n, i: word;
sum: real;
begin
write ('n = ');
readln (n);
sum := 0;
for i := 1 to n do
sum := sum + 1/(i);
writeln (sum:6:5);
end.
737
Смежные вопросы: