Var n,i:integer; s:real;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do s:=s+(i+1)/i;
writeln('s = ',s);
end.
Пример:
n = 5
s = 7.28333333333333
<h2>Пункт 1</h2>
0 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 0 · 2³ + 1 · 2² + 1 · 2¹ + 1 · 2⁰ = 0 + 0 + 32 + 0 + 0 + 4 + 2 + 1 = 39₁₀
<h2>
Пункт 2</h2>
1 · 2⁷ + 1 · 2⁶ + 0 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 0 · 2⁰ = 128 + 64 + 0 + 0 + 8 + 4 + 2 = 206₁₀
<h2>Пункт 3</h2>
1 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 0 · 2² + 1 · 2¹ + 0 · 2⁰ = 128 + 0 + 32 + 0 + 8 + 0 + 2 + 0 = 170₁₀
<h2>Пункт 4</h2>
0 · 2⁷ + 1 · 2⁶ + 1 · 2⁵ + 1 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 0 · 2⁰ = 0 + 64 + 32 + 16 + 8 + 4 + 2 + 0 = 126₁₀
Странно, что i и j нигде не участвуют в циклах
При x = 0
1 p = 1 * cos(0) = 1 * 1 = 1
2 p = 1 * cos(0) = 1 * 1 = 1
3 p = 1 * cos(0) = 1 * 1 = 1
4 p = 1 * cos(0) = 1 * 1 = 1
5 p = 1 * cos(0) = 1 * 1 = 1
6 p = 1 * cos(0) = 1 * 1 = 1
7 p = 1 * cos(0) = 1 * 1 = 1
8 p = 1 * cos(0) = 1 * 1 = 1
9 p = 1 * cos(0) = 1 * 1 = 1
10 p = 1 * cos(0) = 1 * 1 = 1
s = 0 + 1 = 1
===============================
11 p = 1 * cos(0) = 1 * 1 = 1
12 p = 1 * cos(0) = 1 * 1 = 1
13 p = 1 * cos(0) = 1 * 1 = 1
14 p = 1 * cos(0) = 1 * 1 = 1
15 p = 1 * cos(0) = 1 * 1 = 1
16 p = 1 * cos(0) = 1 * 1 = 1
17 p = 1 * cos(0) = 1 * 1 = 1
18 p = 1 * cos(0) = 1 * 1 = 1
19 p = 1 * cos(0) = 1 * 1 = 1
20 p = 1 * cos(0) = 1 * 1 = 1
s = 1 + 1 = 2
===============================
21 p = 1 * cos(0) = 1 * 1 = 1
22 p = 1 * cos(0) = 1 * 1 = 1
23 p = 1 * cos(0) = 1 * 1 = 1
24 p = 1 * cos(0) = 1 * 1 = 1
25 p = 1 * cos(0) = 1 * 1 = 1
26 p = 1 * cos(0) = 1 * 1 = 1
27 p = 1 * cos(0) = 1 * 1 = 1
28 p = 1 * cos(0) = 1 * 1 = 1
29 p = 1 * cos(0) = 1 * 1 = 1
30 p = 1 * cos(0) = 1 * 1 = 1
s = 2 + 1 = 3
===============================
31 p = 1 * cos(0) = 1 * 1 = 1
32 p = 1 * cos(0) = 1 * 1 = 1
33 p = 1 * cos(0) = 1 * 1 = 1
34 p = 1 * cos(0) = 1 * 1 = 1
35 p = 1 * cos(0) = 1 * 1 = 1
36 p = 1 * cos(0) = 1 * 1 = 1
37 p = 1 * cos(0) = 1 * 1 = 1
38 p = 1 * cos(0) = 1 * 1 = 1
39 p = 1 * cos(0) = 1 * 1 = 1
40 p = 1 * cos(0) = 1 * 1 = 1
s = 3 + 1 = 4
===============================
41 p = 1 * cos(0) = 1 * 1 = 1
42 p = 1 * cos(0) = 1 * 1 = 1
43 p = 1 * cos(0) = 1 * 1 = 1
44 p = 1 * cos(0) = 1 * 1 = 1
45 p = 1 * cos(0) = 1 * 1 = 1
46 p = 1 * cos(0) = 1 * 1 = 1
47 p = 1 * cos(0) = 1 * 1 = 1
48 p = 1 * cos(0) = 1 * 1 = 1
49 p = 1 * cos(0) = 1 * 1 = 1
50 p = 1 * cos(0) = 1 * 1 = 1
s = 4 + 1 = 5
===============================
51 p = 1 * cos(0) = 1 * 1 = 1
52 p = 1 * cos(0) = 1 * 1 = 1
53 p = 1 * cos(0) = 1 * 1 = 1
54 p = 1 * cos(0) = 1 * 1 = 1
55 p = 1 * cos(0) = 1 * 1 = 1
56 p = 1 * cos(0) = 1 * 1 = 1
57 p = 1 * cos(0) = 1 * 1 = 1
58 p = 1 * cos(0) = 1 * 1 = 1
59 p = 1 * cos(0) = 1 * 1 = 1
60 p = 1 * cos(0) = 1 * 1 = 1
s = 5 + 1 = 6
===============================
61 p = 1 * cos(0) = 1 * 1 = 1
62 p = 1 * cos(0) = 1 * 1 = 1
63 p = 1 * cos(0) = 1 * 1 = 1
64 p = 1 * cos(0) = 1 * 1 = 1
65 p = 1 * cos(0) = 1 * 1 = 1
66 p = 1 * cos(0) = 1 * 1 = 1
67 p = 1 * cos(0) = 1 * 1 = 1
68 p = 1 * cos(0) = 1 * 1 = 1
69 p = 1 * cos(0) = 1 * 1 = 1
70 p = 1 * cos(0) = 1 * 1 = 1
s = 6 + 1 = 7
===============================
71 p = 1 * cos(0) = 1 * 1 = 1
72 p = 1 * cos(0) = 1 * 1 = 1
73 p = 1 * cos(0) = 1 * 1 = 1
74 p = 1 * cos(0) = 1 * 1 = 1
75 p = 1 * cos(0) = 1 * 1 = 1
76 p = 1 * cos(0) = 1 * 1 = 1
77 p = 1 * cos(0) = 1 * 1 = 1
78 p = 1 * cos(0) = 1 * 1 = 1
79 p = 1 * cos(0) = 1 * 1 = 1
80 p = 1 * cos(0) = 1 * 1 = 1
s = 7 + 1 = 8
===============================
81 p = 1 * cos(0) = 1 * 1 = 1
82 p = 1 * cos(0) = 1 * 1 = 1
83 p = 1 * cos(0) = 1 * 1 = 1
84 p = 1 * cos(0) = 1 * 1 = 1
85 p = 1 * cos(0) = 1 * 1 = 1
86 p = 1 * cos(0) = 1 * 1 = 1
87 p = 1 * cos(0) = 1 * 1 = 1
88 p = 1 * cos(0) = 1 * 1 = 1
89 p = 1 * cos(0) = 1 * 1 = 1
90 p = 1 * cos(0) = 1 * 1 = 1
s = 8 + 1 = 9
===============================
91 p = 1 * cos(0) = 1 * 1 = 1
92 p = 1 * cos(0) = 1 * 1 = 1
93 p = 1 * cos(0) = 1 * 1 = 1
94 p = 1 * cos(0) = 1 * 1 = 1
95 p = 1 * cos(0) = 1 * 1 = 1
96 p = 1 * cos(0) = 1 * 1 = 1
97 p = 1 * cos(0) = 1 * 1 = 1
98 p = 1 * cos(0) = 1 * 1 = 1
99 p = 1 * cos(0) = 1 * 1 = 1
100 p = 1 * cos(0) = 1 * 1 = 1
s = 9 + 1 = 10
===============================
10
//Pascal ABC.NET 3.1 сборка 1219
Var
x1,x2,x3,y1,y2,y3:integer;
p1,p2:real;
begin
readln(x1,y1,x2,y2,x3,y3);
p1:=(y3-y1)/(y2-y1);
p2:=(x3-x1)/(x2-x1);
if p1=p2 then writeln('На одной прямой') else writeln('Не на одной прямой');
end.
Пример ввода:
1
1
2
2
3
3
Пример вывода:
<span>На одной прямой</span>
Создатель компьютерной вычислительной сети был Джозеф Карл Робнетт