Var i,sum:integer; a:array[1..10] of integer;
begin;
for i:=1 to 10 do readln(a[i]); next i;
sum:=0;
for i:=1 to 10 do sum:=sum+a[i]; next i;
writeln('Сумма элементов = ',sum);
end.
Таблица истинности (смотри прикрепленный скрин)
Странно, что 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
10(2) = 1*2^1 + 0*2^0 = 2 (10)
10(2) + 10(10) = 2(10) + 10(10) = 12(10)
ответ 12
Program gt;
var n,i:integer;
a:array[1..1000]of integer;
begin
randomize;
read(n);
for i:=1 to n do
a[i]:=random(40)-20;
for i:=1 to n do
begin
write(a[i]:4,' ');
if(i mod 4=0)then writeln;
end;
for i:=1 to 4-n mod 4 do
write(0:4,' ');
end.