1) дано целое число N (больше 0). Найти сумму 1+1/2+1/3 ... 1/N (вещественное число). Входные данные: ввести целое числоN (1<=n<=20) Выходные данные: вывести сумму 1+1/2=1/3 + ... 1N с точностью до 4 цифр в дробной части. (в паскале)

program zz1;

var i, n:integer; / / задаем переменные целого типа

s:real; / / задаем переменную вещественного типа

begin

write (' введите заданное n '); / / вводим с клавиатуры заданное целое число n от единицы до двадцати

read (n);

for i:=1 to n do / / организуем цикл до введенного числа n

s:=s + 1/i; / / получаем сумму ряда

write (' полученная сумма = ', s:5:4); / / выводим ответ на экран в формате пять знаков для всего числа и четыре цифры в дробной части

end.