Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

//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