#include <iostream>
#include <cmath>
using namespace std;
int main() {
int n;
float s = 1,b = 0;
cout << "n=";
cin >> n;
for (int i=2; i<=n; i++){
b=(1/sqrt(i));
s += b;
}
cout <<"s="<< s << endl;
return 0;
}
Объектагврзыагвопапишпчкрлвм
3.
Var X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if (X>=-2)and(Y<=-X)and(X*X+Y*Y>=4) then WriteLn('Попал')
else WriteLn('Мимо')
End.
5.
Var X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if (Y<=0)and(X>=0)and(Y>=X/2 -1) then Write('Попал')
else WriteLn('Мимо')
End.
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
var a:=ReadArrInteger(n);
a.Reverse.Println
end.
<u>Пример</u>
10
1 3 2 4 7 5 0 6 9 8
8 9 6 0 5 7 4 2 3 1