Задача 1. ДАНО натуральне число N. Скласти програму для обчислення суми всіх елементів послідовності

1+1/2+1/3+1/4+...+1/N

Приклад. Якщо ввести N=2 то S(сума)=1,5 оскільки 1+1/2=1,5

Задача 2*. ДАНО натуральне число N. Скласти програму для обчислення всіх елементів послідовності

1-2+3-4+5-...+N

Приклад.

Якщо ввести N=7 то S(сума)=4;

Якщо ввести N=10 то S(сума)=-5;

#include <iostream>

int main()

{

       using namespace std;

       const string password = "123456";

       string attempted;

       cout << "Enter correct password" << endl;

       for (int i = 0; i < 3; i++)

       {

               cin >> attempted;

               if (attempted == password)

               {

                       cout << "Successful login" << endl;

                       return 0;

               }

               else

               {

                       cout << "Wrong password" << endl;

               }

       }

       cout << "Access denied" << endl;

       return 0;

}

Var b,c:boolean;
a:integer;
begin
readln(a);
writeln(not odd(a));
if a mod 10 = 7 then b:=true;
writeln(b);
writeln(not odd(a mod 10));
end.

var r,a:integer;
begin
read(r,a);
if a*a>pi*r*r then writeln('Square')
else if a*a<pi*r*r then writeln('Circle')
else writeln('Equal');
end.

var m1,m2,v1,v2:integer;
begin
read(m1,v1,m2,v2);
if m1/v1>m2/v2 then writeln('p1>p2')
else if m1/m2<m2/v2 then writeln('p1<p2')
else writeln('p1=p2');
end.

var a,b:real;
begin
read(a,b);
b*=0.45;
if a>b then writeln(b)
else if a<b then writeln(a)
else writeln('Equal');
end.