Y=1/1-2/2-3/3-4/4-(...)-n/n Составить блок-схему и программу ** паскале. Заранее спасибо

Question

Y=1/1-2/2-3/3-4/4-(...)-n/n
Составить блок-схему и программу на паскале.
Заранее спасибо

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

Var
 y:real;
 i,n:integer;
begin 
readln(n);
 y:=1;
 for i:=2 to n do
 y:=y-i/i;
 writeln(y);
end.

Пример ввода:
3
Пример вывода:
-1

---

Comments

Учитель говорит,что на блок схеме цикл зациклится

---

Плохой учитель, меняйте. Блок схема сделана ровно по коду.