Предмет: Информатика,
автор: Sasha777Sm
Плиз, помогите с Паскалем!
Составьте программу для решения задачи:
Дано натуральное число n. Найти сумму s=1+1/2+1/3+... +1/n.
Ответы
Автор ответа:
1
program raf105;
var
n: integer;
sum: real;
begin
write('n = ');
readln(n);
for var i:=1 to n do
sum:= sum + 1/i;
writeln('Сумма: ',sum);
end.
PascalABC
Интересные вопросы
Предмет: Математика,
автор: ladydiona
Предмет: Математика,
автор: elizabethmaliarchukk
Предмет: Українська мова,
автор: valeryankagge
Предмет: Математика,
автор: школота2007
Предмет: Математика,
автор: Bella111198