// PascalABC.NET
begin
var x := ReadReal('x =');
var n := ReadInteger('n =');
SeqGen(n, p -> p / (x + p), 1).Sum.Print
end.
#include <iostream>
using namespace std;
int main() {
int n;
cin >> n;
int mass[];
for (int i = 0; i < n; i++) {
cin >> mass[i];
}
int count_0 = 0, count_pol = 0, count_otr = 0;
for (int i = 0; i < n; i++) {
if (mass[i] == 0) {
count_0++;
}
if (mass[i] > 0) {
count_pol++;
}
if (mass[i] < 0) {
count_otr++;
}
}
cout << count_0 << " " << count_pol << " " <<count_otr;
cout <<endl;
system ("pause");
return 0;
}
var a, i: integer;
begin
a := 1;
for i := 1 to 15 do
begin
writeln('Корень числа: ',a, ' , равен: ', sqrt(a):5:2);
a := a + i;
end;
end.
Текстовый вывод:
Корень числа: 1 , равен: 1.00
Корень числа: 2 , равен: 1.41
Корень числа: 4 , равен: 2.00
Корень числа: 7 , равен: 2.65
Корень числа: 11 , равен: 3.32
Корень числа: 16 , равен: 4.00
Корень числа: 22 , равен: 4.69
Корень числа: 29 , равен: 5.39
Корень числа: 37 , равен: 6.08
Корень числа: 46 , равен: 6.78
Корень числа: 56 , равен: 7.48
Корень числа: 67 , равен: 8.19
Корень числа: 79 , равен: 8.89
Корень числа: 92 , равен: 9.59
Корень числа: 106 , равен: 10.30
program prog77;
var
x : real;
n: integer;
s: real;
i: integer;
begin
write ('x = ?');
readln(x);
write ('n = ?');
readln(n);
s := 0;
for i := 1 to n do
begin
s := s + i/(x+i);
end;
write ('S = ', s);
end.
Объяснение: