Program prog;
uses crt;
var a:array[1..10] of integer;
s,i: integer;
begin
clrscr;
for i:=1 to 10 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 10 do begin
if (a[i] mod 2 = 1) and (a[i]>6) then
s:=s+a[i];
end;
writeln('Сумма чисел s = ', s);
end.
var a:array [1..100] of real;
i,n:integer;
t:real;
Begin
randomize;
n:=20;
for i:= 1 to n do begin
a[i]:=random(n*10)- 10*n div 2 ;
write(a[i]:4);
if i mod 10=0 then writeln;
end;
t:=a[1]
for i:= 1 to n do begin
a[i]:=a[i]/t ;
write(a[i]:4);
if i mod 10=0 then writeln;
end;
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
Элементарно!
1) Разбиваем 27 монет на 3 кучки по 9 монет. Сравниваем 2 кучки.
Какая легче - в той и фальшивая монета. Если они равны, то фальшивая в третьей кучке, которую не взвешивали.
Получилась кучка из 9 монет, одна фальшивая. Осталось 2 взвешивания.
2) Точно также разбиваем 9 монет на 3 по 3 монеты и сравниваем две.
Какая легче - в той и фальшивая монета. Если они равны, то фальшивая в третьей кучке, которую не взвешивали.
Получилась кучка из 3 монет, одна фальшивая. Осталось 1 взвешивание.
3) Сравниваем 2 монеты. Какая легче - та и фальшивая.
Если они равны, то фальшивая третья, которую не взвешивали.