1. Найти s=1+1/2 + 1/3 + 1/4 + ...+1/n, n - вводится с клавиатуры 2. Найти сумму N чисел, вводимых с клавиатуры.

program zz1;

var n, i:integer; s:real;

begin

write ('введите заданное число n');

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

for i:=1 to n do / /перебираем все числа от 1 до n

s:=s+1/i; / /очередной элемент ряда прибавляем к сумме

write ('сумма ряда = ', s); / /выводим ответ

end.

program zz1;

var n, i:integer; s:real;

begin

write ('введите заданное число n');

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

for i:=1 to n do//перебираем все числа от 1 до n

s:=s+i; //каждое число прибавляем к сумме

write ('сумма n чисел = ', s); / /выводим ответ

end.