3.
: , .
: , , : , 17 34 .
: , - , , . .
.
1. , , , , .
2. : , , .
3. .
4. .
5. .
6. .
:
1. 17 . , .
2. 17 . , .
3. 21 . 10 .
4. 21 . , .
5. 17 . .
6. 9 . , 3-, (1), .
7. 14 . 4- 12-.
8. 17 . .
9. 15 . , .
10. 14 . , , .
11. 15 . , 3- 6-, , .
12. 15 . , .
13. 15 . ( ).
14. 16 . N . , N .
|
|
15. 17 . 10, 2, .
16. 21 . 1 , 2 - .
17. 1 , .
18. 15 . .
19. 20 . S 1-S2, S1- , S2 - .
20. 16 . 1 , , ( ) .
21. 24 . , , .
22. 17 . +, - , - .
23. 10 . 1, 1 .
24. , , 10 , 5-. , I, - 0.
25. 16 . , , , , 1000. . 1000, 0.
26. 10 . (1) (2) . 1 > 2, I, , =0.
27. 12 . , .
28. 15 . 10 , 0, =1.
29. 80 . , 2 .
30. . , .
31. N, 5, . , .
32. . , .
33. , .
34. . 10 .
35. X[10] Y[10] . , .
36. , , , , .
37. X[10] Y[10] . .
38. . , .
|
|
39. X[10] Y[10] . , .
40. , 4 15, .
41. . 3 5.
42. . , .
43. . , .
44. . 7 1,2 5.
45. . , .
46. . .
47. . .
48. . 7 7. .
49. . , .
50. . .
51. . .
. , 3 7, .
program Pr3;
{$APPTYPE CONSOLE}
uses
SysUtils;
Type
TMas=Array[1..20] of integer;
Var
Mas:TMas;
I,N,Sum:integer;
{ }
Procedure Input (N1:byte);
begin
For I:=1 to N1 do
Begin
write('Mas[',I,']=');Readln(Mas[I]);
End;
End;
{ , 3 7 }
Procedure MyProc(N1:byte;Var Summa:integer);
Begin
Summa:=0;
For I:=1 to N1 do
If (Mas[I] mod 3=0)or(Mas[I] mod 7=0) then
Begin
Summa:=Summa+1;
Write(Mas[I]:6);
End;
Writeln;
Readln;
End;
Begin
Write('N=');readln(N);
Input(N);
MyProc(N,Sum);
{ Sum - , 3 7}
Writeln('Sum=',Sum);
Readln;
end.