Задача по информатике
Напишите программу которая используя оператор for вычисляет для первых n элементов сумму и произведение

Вопрос задан несколько некорректно: на каком языке программирования? Вот, например, на Паскале:1) Program P1;uses crt;var i, n: integer; s: real;beginclrscr;write ('Введите количество элементов ряда: ');readln (n);s:=0;for i:=1 to n do s:=s+1/i;write ('Ответ: Сумма элементов ряда равна: ', s);readkey;end.2) Program P2;uses crt;var i, n: integer; p: real;beginclrscr;write ('Введите количество элементов ряда: ');readln (n);p:=1;for i:=1 to n do p:=p*1/i;write ('Ответ: Произведение элементов ряда равно: ', p);readkey;end.

1. var i,n:integer;s:real;begin readln(n); for i:=1 to n do s:=s+1/i; writeln(s);end.2.var i,n:integer;p:real;begin p:=1; readln(n); for i:=1 to n do p:=p*1/i; writeln(p:6:2);end.