Задача 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;
}
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.