Ко­ман­да1 Ко­ман­да2 Ко­ман­да3

Конец

озна­ча­ет, что по­сле­до­ва­тель­ность ко­манд Ко­ман­да1 Ко­ман­да2 Ко­ман­да3 по­вто­рит­ся k раз.

 

Чертёжнику был дан для ис­пол­не­ния сле­ду­ю­щий ал­го­ритм:

 

По­вто­ри 3 раз

Сме­стить­ся на (–2, –1) Сме­стить­ся на (3, 2) Сме­стить­ся на (2, 1)

Конец

 

Какую един­ствен­ную ко­ман­ду надо вы­пол­нить Чертёжнику, чтобы вер­нуть­ся в ис­ход­ную точку, из ко­то­рой он начал дви­же­ние?

 

1) Сме­стить­ся на (9, 6)

2) Сме­стить­ся на (–6, –9)

3) Сме­стить­ся на (6, 9)

4) Сме­стить­ся на (–9, –6)

61. За­да­ние 7 № 87. Валя шиф­ру­ет рус­ские слова (по­сле­до­ва­тель­но­сти букв), за­пи­сы­вая вме­сто каж­дой буквы её код:

 

А	Д	К	Н	О	С

 

Не­ко­то­рые це­поч­ки можно рас­шиф­ро­вать не одним спо­со­бом. На­при­мер, 00010101 может озна­чать не толь­ко СКА, но и СНК. Даны три ко­до­вые це­поч­ки:

 

 

Най­ди­те среди них ту, ко­то­рая имеет толь­ко одну рас­шиф­ров­ку, и за­пи­ши­те в от­ве­те рас­шиф­ро­ван­ное слово.

62. За­да­ние 7 № 865. Ваня и Коля пе­ре­пи­сы­ва­ют­ся при по­мо­щи при­ду­ман­но­го шифра. Фраг­мент ко­до­вой таб­ли­цы при­ведён ниже.

 

В	О	Л	Г	А
@@@	@&	&@@	&@&	&&&

 

Рас­шиф­руй­те со­об­ще­ние, если из­вест­но, что в нём со­дер­жат­ся толь­ко буквы из пред­ло­жен­ной таб­ли­цы. Раз­де­ли­те­лей между ко­да­ми букв нет:

 

&@&@&&@@@&@@@&&&

 

За­пи­ши­те в от­ве­те рас­шиф­ро­ван­ное со­об­ще­ние.

63. За­да­ние 7 № 247. От раз­вед­чи­ка была по­лу­че­на сле­ду­ю­щая шиф­ро­ван­ная ра­дио­грам­ма, пе­ре­дан­ная с ис­поль­зо­ва­ни­ем аз­бу­ки Морзе:

 

–•–•–•––••–••–•–••

 

При пе­ре­да­че ра­дио­грам­мы было по­те­ря­но раз­би­е­ние на буквы, но из­вест­но, что в ра­дио­грам­ме ис­поль­зо­ва­лись толь­ко сле­ду­ю­щие буквы:

 

Н	К	И	Л	М
–•	–•–	••	•–••	––

 

Рас­шиф­руй­те ра­дио­грам­му. За­пи­ши­те в от­ве­те рас­шиф­ро­ван­ную ра­дио­грам­му.

64. За­да­ние 7 № 528. Ки­рилл шиф­ру­ет слова, за­пи­сы­вая вме­сто каж­дой буквы её номер в ал­фа­ви­те (без про­бе­лов). Но­ме­ра букв даны в таб­ли­це:

 

А 1	K 11	U 21
B 2	L 12	V 22
C 3	M 13	W 23
D 4	N 14	X 24
E 5	O 15	Y 25
F 6	P 16	Z 26
G 7	Q 17
H 8	R 18
I 9	S 19
J 10	T 20

 

Не­ко­то­рые шиф­ров­ки можно рас­шиф­ро­вать не одним спо­со­бом. На­при­мер, 16118 может озна­чать «AFAR», может — «РАR», а может — «AFAAH». Даны че­ты­ре шиф­ров­ки:

 

 

Толь­ко одна из них рас­шиф­ро­вы­ва­ет­ся един­ствен­ным спо­со­бом. Най­ди­те её и рас­шиф­руй­те. То, что по­лу­чи­лось, за­пи­ши­те в ка­че­стве от­ве­та.

65. За­да­ние 7 № 27. Валя шиф­ру­ет рус­ские слова (по­сле­до­ва­тель­но­сти букв), за­пи­сы­вая вме­сто каж­дой буквы её код:

 

А	Д	К	Н	О	С

 

Не­ко­то­рые це­поч­ки можно рас­шиф­ро­вать не одним спо­со­бом. На­при­мер, 00010101 может озна­чать не толь­ко СКА, но и СНК. Даны три ко­до­вые це­поч­ки:

 

 

Най­ди­те среди них ту, ко­то­рая имеет толь­ко одну рас­шиф­ров­ку, и за­пи­ши­те в от­ве­те рас­шиф­ро­ван­ное слово.

66. За­да­ние 7 № 167. Вася и Петя иг­ра­ли в шпи­о­нов и ко­ди­ро­ва­ли со­об­ще­ния соб­ствен­ным шиф­ром. Фраг­мент ко­до­вой таб­ли­цы при­ведён ниже:

 

Н	М	Л	И	Т	О
~	*	*@	@~*	@*	~*

 

Рас­шиф­руй­те со­об­ще­ние, если из­вест­но, что буквы в нём не по­вто­ря­ют­ся:

 

*@@~**~*~

 

За­пи­ши­те в от­ве­те рас­шиф­ро­ван­ное со­об­ще­ние.

67. За­да­ние 7 № 1240. Вася и Петя иг­ра­ли в шпи­о­нов и ко­ди­ро­ва­ли со­об­ще­ние соб­ствен­ным шиф­ром. Фраг­мент ко­до­вой таб­ли­цы при­ведён ниже:

 

Н	М	Л	И	Т	О
~	*	*@	@~*	@*	~*

Опре­де­ли­те, из сколь­ких букв со­сто­ит со­об­ще­ние, если из­вест­но, что буквы в нём не по­вто­ря­ют­ся:

 

*@@~**~*~

68. За­да­ние 7 № 1101. Вася и Петя иг­ра­ли в шпи­о­нов и ко­ди­ро­ва­ли со­об­ще­ние соб­ствен­ным шиф­ром. Фраг­мент ко­до­вой таб­ли­цы при­ведён ниже:

 

Ж	З	И	Й	К	Л
+ #	+ ^ #	#	^	^ #	# +

 

Опре­де­ли­те, из сколь­ких букв со­сто­ит со­об­ще­ние, если из­вест­но, что буквы в нём не по­вто­ря­ют­ся:

 

# + + ^ # # ^ # ^

 

69. За­да­ние 7 № 648. На ки­но­сту­дии сни­ма­ли фильм про шпи­о­нов и за­ко­ди­ро­ва­ли со­об­ще­ние при­ду­ман­ным шиф­ром. В со­об­ще­нии при­сут­ству­ют толь­ко буквы при­ведённого фраг­мен­та ко­до­вой таб­ли­цы:

 

М	Е	Т	Л	А

 

Опре­де­ли­те, какое со­об­ще­ние за­ко­ди­ро­ва­но в строч­ке:

 

1101000110.

 

В от­ве­те за­пи­ши­те по­сле­до­ва­тель­ность букв без за­пя­тых и дру­гих зна­ков пре­пи­на­ния.

70. За­да­ние 7 № 970. Раз­вед­чик пе­ре­дал в штаб ра­дио­грам­му

 

• – – • • • – • • – – • • – • – –

 

В этой ра­дио­грам­ме со­дер­жит­ся по­сле­до­ва­тель­ность букв, в ко­то­рой встре­ча­ют­ся толь­ко буквы А, Д, Ж, Л, Т. Каж­дая буква за­ко­ди­ро­ва­на с по­мо­щью аз­бу­ки Морзе. Раз­де­ли­те­лей между ко­да­ми букв нет. За­пи­ши­те в от­ве­те пе­ре­дан­ную по­сле­до­ва­тель­ность букв. Нуж­ный фраг­мент аз­бу­ки Морзе при­ведён ниже.

 

А	Д	Ж	Л	Т
• –	– • •	• – • •	–	• • • –

71. За­да­ние 8 № 887. В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор при­сва­и­ва­ния, знаки «+», «–», «*» и «/» – со­от­вет­ствен­но опе­ра­ции сло­же­ния, вы­чи­та­ния, умно­же­ния и де­ле­ния. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ет пра­ви­лам ариф­ме­ти­ки.

Опре­де­ли­те зна­че­ние пе­ре­мен­ной m после вы­пол­не­ния дан­но­го ал­го­рит­ма:

 

k:= 5

m:= 90

k:= m-k*2

m:= k*3-m

 

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной m.

72. За­да­ние 8 № 328. В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор при­сва­и­ва­ния, знаки «+», «-», «*» и «/» — со­от­вет­ствен­но опе­ра­ции сло­же­ния, вы­чи­та­ния, умно­же­ния и де­ле­ния. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам ариф­ме­ти­ки. Опре­де­ли­те зна­че­ние пе­ре­мен­ной b после вы­пол­не­ния ал­го­рит­ма:

 

а:= 4

b:= 10

а:= b - a*2

b:= 24/a*4

 

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной b.

73. За­да­ние 8 № 108. В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор при­сва­и­ва­ния, знаки «+», «-», «*» и «/» — со­от­вет­ствен­но опе­ра­ции сло­же­ния, вы­чи­та­ния, умно­же­ния и де­ле­ния. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам ариф­ме­ти­ки. Опре­де­ли­те зна­че­ние пе­ре­мен­ной b после вы­пол­не­ния ал­го­рит­ма:

 

а:= 3

b:= 4

а:= 2*а + 3*b

b:= a/2*b

 

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной b.

74. За­да­ние 8 № 689. В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор при­сва­и­ва­ния, знаки «+», «-», «*» и «/» — со­от­вет­ствен­но опе­ра­ции сло­же­ния, вы­чи­та­ния, умно­же­ния и де­ле­ния. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам ариф­ме­ти­ки. Опре­де­ли­те зна­че­ние пе­ре­мен­ной a после вы­пол­не­ния ал­го­рит­ма:

 

b:= 4

a:= -3

b:= 7 - 2*a - b

a:= b/3 - a

 

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной a.

75. За­да­ние 8 № 866. В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор при­сва­и­ва­ния, знаки «+», «–», «*» и «/» – со­от­вет­ствен­но опе­ра­ции сло­же­ния, вы­чи­та­ния, умно­же­ния и де­ле­ния. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ет пра­ви­лам ариф­ме­ти­ки.

Опре­де­ли­те зна­че­ние пе­ре­мен­ной b после вы­пол­не­ния ал­го­рит­ма:

 

a:= 8

b:= 3

a:= 3 * a – b

b:= (a / 3) * (b + 2)

 

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной b.

76. За­да­ние 8 № 1019. В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор при­сва­и­ва­ния, знаки «+», «–», «*» и «/» – со­от­вет­ствен­но опе­ра­ции сло­же­ния, вы­чи­та­ния, умно­же­ния и де­ле­ния. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ет пра­ви­лам ариф­ме­ти­ки.

Опре­де­ли­те зна­че­ние пе­ре­мен­ной e после вы­пол­не­ния дан­но­го ал­го­рит­ма:

 

f:= 100

e:= 25

f:= 2*f+50

e:= f–150–e*2

 

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной e.

77. За­да­ние 8 № 248. В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор при­сва­и­ва­ния, знаки «+», «-», «*» и «/» — со­от­вет­ствен­но опе­ра­ции сло­же­ния, вы­чи­та­ния, умно­же­ния и де­ле­ния. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам ариф­ме­ти­ки. Опре­де­ли­те зна­че­ние пе­ре­мен­ной a после вы­пол­не­ния ал­го­рит­ма:

 

а:= 4

b:= 4

b:= a/2*b

a:= 2*а + 3*b

 

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной a.

78. За­да­ние 8 № 188. В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор при­сва­и­ва­ния, знаки «+», «-», «*» и «/» — со­от­вет­ствен­но опе­ра­ции сло­же­ния, вы­чи­та­ния, умно­же­ния и де­ле­ния. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам ариф­ме­ти­ки. Опре­де­ли­те зна­че­ние пе­ре­мен­ной a после вы­пол­не­ния ал­го­рит­ма:

 

а:= 8

b:= 2

b:= a/2*b

a:= 2*а + 3*b

 

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной a.

79. За­да­ние 8 № 1122. В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор при­сва­и­ва­ния, знаки «+», «–», «*» и «/» – со­от­вет­ствен­но опе­ра­ции сло­же­ния, вы­чи­та­ния, умно­же­ния и де­ле­ния. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ет пра­ви­лам ариф­ме­ти­ки.

Опре­де­ли­те зна­че­ние пе­ре­мен­ной b после вы­пол­не­ния ал­го­рит­ма:

 

a:= 1

b:= 4

a:= 2*a+3*b

b:= a/2*b

 

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной b.

80. За­да­ние 8 № 48. В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор при­сва­и­ва­ния, знаки «+», «-», «*» и «/» — со­от­вет­ствен­но опе­ра­ции сло­же­ния, вы­чи­та­ния, умно­же­ния и де­ле­ния. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам ариф­ме­ти­ки. Опре­де­ли­те зна­че­ние пе­ре­мен­ной b после вы­пол­не­ния ал­го­рит­ма:

 

а:= 4

b:= 4

а:= 2*а + 3*b

b:= a/2*b

 

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной b.

81. За­да­ние 9 № 390. Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел s, k s:= 100 нц для k от 1 до 9 s:= s - 5 кц вывод s кон	DIM k, s AS INTEGER s = 100 FOR k = 1 TO 9 s = s - 5 NEXT k PRINT s END	Var s, k: integer; Begin s:= 100; for k:= 1 to 9 do s:= s - 5; write (s); End.

82. За­да­ние 9 № 89. За­пи­ши­те зна­че­ние пе­ре­мен­ной s, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел s, k s:= 0 нц для k от 3 до 8 s:= s + 7 кц вывод s кон	DIM k, s AS INTEGER s = 0 FOR к = 3 TO 8 s = s + 7 NEXT k PRINT s	Var s,k: integer; Begin s:= 0; for k:= 3 to 8 do s:= s + 7; writeln(s); End.

83. За­да­ние 9 № 670. За­пи­ши­те зна­че­ние пе­ре­мен­ной y, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел s, n s:= 2 нц для n от 2 до 5 s:= s*2 + n кц вывод s кон	DNM n, s AS INTEGER s = 2 FOR n = 2 TO 5 s = s*2 + n NEXT n PRINT s	Var s, n: integer; Begin s:= 2; For n:= 2 to 5 do s:= s*2 + n; Writeln(s); End.

84. За­да­ние 9 № 690. За­пи­ши­те зна­че­ние пе­ре­мен­ной y, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел s, n s:= 2 нц для n от 2 до 5 s:= s + n*2 кц вывод s кон	DNM n, s AS INTEGER s = 2 FOR n = 2 TO 5 s = s + n*2 NEXT n PRNNT s	Var s, n: integer; Begin s:= 2; For n:= 2 to 5 do s:= s + n*2; Writeln(s); End.

85. За­да­ние 9 № 773. За­пи­ши­те зна­че­ние пе­ре­мен­ной d, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел d,n d:= 5 d:= d-3 нц для n от 1 до 4 d:= d + n кц вывод d кон	DIM n,d AS INTEGER d = 5 d = d-3 FOR n = 1 TO 4 d = d + n NEXT n PRINT d	Var d,n: integer; Begin d:= 5; d:= d-3; For n:= 1 to 4 do d:= d + n; Writeln(d); End.

86. За­да­ние 9 № 209. За­пи­ши­те зна­че­ние пе­ре­мен­ной s, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел s, k s:= 0 нц для k от 9 до 13 s:= s + 9 кц вывод s кон	DIM k, s AS INTEGER s = 0 FOR к = 9 TO 13 s = s + 9 NEXT k PRINT s	Var s,k: integer; Begin s:= 0; for k:= 9 to 13 do s:= s + 9; writeln(s); End.

87. За­да­ние 9 № 590. За­пи­ши­те зна­че­ние пе­ре­мен­ной k, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел k, i k:= 4 нц для i от 1 до 3 k:= i + 2*k кц вывод k кон	DIM i, k AS INTEGER k = 4 FOR i = 1 TO 3 k = i + 2*k NEXT i PRINT k	Var k, i: integer; Begin k:= 4; For i:= 1 to 3 do k:= i + 2*k; Writeln(k); End.

88. За­да­ние 9 № 430. Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел s, k s:= 1 нц для k от 0 до 9 s:= s + 5 кц вывод s кон	s = 1 FOR к = 0 TO 9 s = s + 5 NEXT k PRINT s END	Var s, k: integer; Begin s:= 1; for k:= 0 to 9 do s:= s + 5; write (s); End.

89. За­да­ние 9 № 867. За­пи­ши­те зна­че­ние пе­ре­мен­ной s, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел n, s s:= 0 нц для n от 3 до 7 s:= s + 2 * n кц вывод s кон	DIM n, s AS INTEGER s = 0 FOR n = 3 TO 7 s = s + 2 * n NEXT n PRINT s END	var n, s: integer; begin s:= 0; for n:= 3 to 7 do s:= s + 2 * n; write(s); end.

90. За­да­ние 9 № 710. За­пи­ши­те зна­че­ние пе­ре­мен­ной s, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел s, k s:= 0 нц для k от 6 до 12 s:= s + 10 кц вывод s кон	DIM k, s AS INTEGER s = 0 FOR к = 6 TO 12 s = s + 10 NEXT k PRINT s	Var s,k: integer; Begin s:= 0; for k:= 6 to 12 do s:= s + 10; writeln(s); End.

91. За­да­ние 10 № 411. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве крат­ко­сроч­ных ко­ман­ди­ро­вок, в ко­то­рые при­хо­ди­лось ез­дить со­труд­ни­ку за по­след­ний год (Dat[1] — ко­ли­че­ство ко­ман­ди­ро­вок в ян­ва­ре, Dat[2] — ко­ли­че­ство ко­ман­ди­ро­вок в фев­ра­ле и т. д.). Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го ал­го­рит­ма, за­пи­сан­но­го на трёх ал­го­рит­ми­че­ских язы­ках.

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Dat[1:12] цел к, m, term Dat[1]:= 2 Dat[2]:= 5 Dat[3]:= 6 Dat[4]:= 8 Dat[5]:= 8 Dat[6]:= 5 Dat[7]:= 3 Dat[8]:= 7 Dat[9]:= 4 Dat[10]:= 4 Dat[11]:= 8 Dat[12]:= 7 month:=1; m:= Dat[1] нц для к от 2 до 12 если Dat[к] >= m то m:= Dat[k] month:= k все КЦ вывод month КОН	DIM Dat(12) AS INTEGER Dat[1] = 2 Dat[2] = 5 Dat[3] = 6 Dat[4] = 8 Dat[5] = 8 Dat[6] = 5 Dat[7] = 3 Dat[8] = 7 Dat[9] = 4 Dat[10] = 4 Dat[11] = 8 Dat[12] = 7 month = 1: m = Dat(1) FOR k = 2 TO 12 IF Dat(k) >= m THEN m = Dat(k) month = k END IF NEXT k PRINT month END	Var k, m, month: integer; Dat: array[1...12] of integer; Begin Dat[1]:= 2; Dat[2]:= 5; Dat[3]:= 6; Dat[4]:= 8; Dat[5]:= 8; Dat[6]:= 5; Dat[7]:= 3; Dat[8]:= 7; Dat[9]:= 4; Dat[10]:= 4; Dat[11]:= 8; Dat[12]:= 7; month:=1; m:= Dat[1]; for k:= 2 to 12 do if Dat[k] >= m then begin m:= Dat[k]; month:= k; end; write(month); End.

92. За­да­ние 10 № 10. В таб­ли­це Dat хра­нят­ся дан­ные из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за 10 дней в гра­ду­сах (Dat[1] — дан­ные за пер­вый день, Dat[2] — за вто­рой и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Dat[1:10] цел к, m Dat[1]:= 12 Dat[2]:= 15 Dat[3]:= 17 Dat[4]:= 15 Dat[5]:= 14 Dat[6]:= 12 Dat[7]:= 10 Dat[8]:= 13 Dat[9]:= 14 Dat[10]:= 15 m:= 0 нц для к от 1 до 10 если Dat[к]=15 то m: = m+1 все КЦ вывод m КОН	DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1)= 12: Dat(2) = 15 Dat(3) = 17: Dat(4) = 15 Dat(5) = 14: Dat(6) = 12 Dat(7) = 10: Dat(8) = 13 Dat(9) = 14: Dat(10) = 15 m = 0 FOR k = 1 TO 10 IF Dat(k)=15 THEN m = m+1 ENDIF NEXT k PRINT m	Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1]:= 12; Dat[2]:= 15; Dat[3]:= 17; Dat[4]:= 15; Dat[5]:= 14; Dat[6]:= 12; Dat[7]:= 10; Dat[8]:= 13; Dat[9]:= 14; Dat[10]:= 15; m:= 0; for k:= 1 to 10 do if Dat[k] = 15 then begin m:= m+1; end; writeln(m); End.

93. За­да­ние 10 № 631. В таб­ли­це Ani хра­нят­ся дан­ные о чис­лен­но­сти обе­зьян в зоо­пар­ке го­ро­да Тулы (Ani[1] — число обе­зьян в 2001 году, Ani[2] — в 2002 и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния:

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Ani [1:12] цел k, m Ani[1]:= 17; Ani[2]:= 17; Ani[3]:= 19; Ani[4]:= 21; Ani[5]:= 23; Ani[6]:= 22; Ani[7]:= 24; Ani[8]:= 16; Ani[9]:= 19; Ani[10]:= 21; Ani[11]:= 17; Ani[12]:= 17; m:= 0 нц для к от 1 до 12 если Ani[k] = 17 то m: = m+Ani[k] все КЦ вывод m КОН	DIM Ani(11) AS INTEGER DIM k,m AS INTEGER Ani(1):= 17: Ani(2):= 17 Ani(3):= 19: Ani(4):= 21 Ani(5):= 23: Ani(6):= 22 Ani(7):= 24: Ani(8):= 16 Ani(9):= 19: Ani(10):= 21 Ani(11):= 17: Ani(12):= 17 m = 0 FOR k = 1 TO 12 IF Ani(k) = 17 THEN m: = m+Ani(k) END IF NEXT k PRINT m	Var k, m: integer; Ani: array[1..12] of integer; Begin Ani[1]:= 17; Ani[2]:= 17; Ani[3]:= 19; Ani[4]:= 21; Ani[5]:= 23; Ani[6]:= 22; Ani[7]:= 24; Ani[8]:= 16; Ani[9]:= 19; Ani[10]:= 21; Ani[11]:= 17; Ani[12]:= 17; m:= 0; For k:= 1 to 12 Do If Ani[k] = 17 Then Begin m:= m + Ani[k]; End; Writeln(m); End.

94. За­да­ние 10 № 671. В таб­ли­це Ves хра­нят­ся дан­ные о весе в ки­ло­грам­мах по груп­пе уча­щих­ся спор­тив­ной школы (Ves[1] — вес пер­во­го уча­ще­го­ся, Ves[2] — вес вто­ро­го уча­ще­го­ся и т. д.). Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го ал­го­рит­ма, за­пи­сан­но­го на трёх ал­го­рит­ми­че­ских язы­ках:

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Ves [1:14] цел i, n Ves[1]:= 25; Ves[2]:= 21; Ves[3]:= 23; Ves[4]:= 28; Ves[5]:= 30; Ves[6]:= 25; Ves[7]:= 31; Ves[8]:= 28; Ves[9]:= 25; Ves[10]:= 28; Ves[11]:= 30; Ves[12]:= 27; Ves[13]:= 26; Ves[14]:= 24; n:= Ves[1] нц для i от 1 до 14 если Ves[i] < n то n: = Ves[i] все КЦ вывод n КОН	DIS Ves(14) AS INTEGER DIS i,n AS INTEGER Ves(1)= 25: Ves(2)= 21 Ves(3)= 23: Ves(4)= 28 Ves(5)= 30: Ves(6)= 25 Ves(7)= 31: Ves(8)= 28 Ves(9)= 25: Ves(10)= 28 Ves(11)= 30: Ves(12)= 27 Ves(13)= 26: Ves(14)= 24 n = Ves(1) FOR i = 1 TO 14 IF Ves(i) < n THEN n: = Ves(i) END IF NEXT i PRINT n	Var i, n: integer; Ves: array[1..14] of integer; Begin Ves[1]:= 25; Ves[2]:= 21; Ves[3]:= 23; Ves[4]:= 28; Ves[5]:= 30; Ves[6]:= 25; Ves[7]:= 31; Ves[8]:= 28; Ves[9]:= 25; Ves[10]:= 28; Ves[11]:= 30; Ves[12]:= 27; Ves[13]:= 26; Ves[14]:= 24; n:= Ves[1]; For i:= 1 to 14 Do If Ves[i] < n Then Begin n: = Ves[i]; End; Writeln(n); End.

95. За­да­ние 10 № 889. Со­труд­ник ме­те­о­бю­ро в ходе из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за­пи­сы­вал по­ка­за­ния тер­мо­мет­ра в таб­ли­цу Tem (Tem[1] — тем­пе­ра­ту­ра, по­лу­чен­ная в ре­зуль­та­те пер­во­го из­ме­ре­ния, Tem[2] — вто­ро­го и т. д.).

Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Tem[1:12] цел k, b b:= 15 Tem[1]:= 22; Tem[2]:= 25 Tem[3]:= 20; Tem[4]:= 18 Tem[5]:= 16; Tem[6]:= 14 Tem[7]:= 20; Tem[8]:= 23 Tem[9]:= 17; Tem[10]:= 19 Tem[11]:= 20; Tem[12]:= 21 нц для k от 1 до 12 если Tem[k] < 20 то b:= b + 1 все кц вывод b кон	DIM Tem(12) AS INTEGER DIM k,b AS INTEGER b = 15 Tem(1)= 22: Tem(2)= 25 Tem(3)= 20: Tem(4) = 18 Tem(5)= 16: Tem(6)= 14 Tem(7)= 20: Tem(8)= 23 Tem(9)= 17: Tem(10)= 19 Tem(11)= 20: Tem(12)= 21 FOR k = 1 TO 12 IF Tem(k) < 20 THEN b = b + 1 END IF NEXT k PRINT b	Var k, b: integer; Tem: array[1..12] of integer; Begin b:= 15; Tem[1]:= 22; Tem[2]:= 25; Tem[3]:= 20; Tem[4]:= 18; Tem[5]:= 16; Tem[6]:= 14; Tem[7]:= 20; Tem[8]:= 23; Tem[9]:= 17; Tem[10]:= 19; Tem[11]:= 20; Tem[12]:= 21; For k:= 1 to 12 Do If Tem[k] < 20 Then b:= b + 1; Writeln(b); End.

96. За­да­ние 10 № 1081. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве сде­лан­ных уче­ни­ка­ми за­да­ний (Dat[1] за­да­ний сде­лал пер­вый уче­ник, Dat[2] — вто­рой и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Dat[1:10] цел k, m, n Dat[1]:= 7; Dat[2]:= 9 Dat[3]:= 10; Dat[4]:= 5 Dat[5]:= 6; Dat[6]:= 7 Dat[7]:= 9; Dat[8]:= 10 Dat[9]:= 6; Dat[10]:= 9 m:= 0; n:= 0 нц для k от 1 до 10 если Dat[k] >= m то m:= Dat[k] n:= k все кц вывод n кон	DIM Dat(10) AS INTEGER DIM k, m, n AS INTEGER Dat(1) = 7: Dat(2) = 9 Dat(3) = 10: Dat(4) = 5 Dat(5) = 6: Dat(6) = 7 Dat(7) = 9: Dat(8) = 10 Dat(9) = 6: Dat(10) = 9 m = 0: n =0 FOR k = 1 TO 10 IF Dat(k) >= m THEN m = Dat(k) n = k END IF NEXT k PRINT n	Var k, m, n: integer; Dat: array[1..10] of integer; Begin Dat[1]:= 7; Dat[2]:= 9; Dat[3]:= 10; Dat[4]:= 5; Dat[5]:= 6; Dat[6]:= 7; Dat[7]:= 9; Dat[8]:= 10; Dat[9]:= 6; Dat[10]:= 9; m:= 0; n:= 0; for k:= 1 to 10 do if Dat[k] >= m then begin m:= Dat[k]; n:= k end; writeln(n) End.

97. За­да­ние 10 № 250. В таб­ли­це Dat пред­став­ле­ны дан­ные о ко­ли­че­стве го­ло­сов, по­дан­ных за 10 ис­пол­ни­те­лей на­род­ных песен (Dat[1] — ко­ли­че­ство го­ло­сов, по­дан­ных за пер­во­го ис­пол­ни­те­ля, Dat[2] — за вто­ро­го и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Dat[1:10] цел к, m Dat[1]:= 16 Dat[2]:= 20 Dat[3]:= 20 Dat[4]:= 41 Dat[5]:= 14 Dat[6]:= 21 Dat[7]:= 28 Dat[8]:= 11 Dat[9]:= 15 Dat[10]:= 35 m:= 50 нц для к от 1 до 10 если Dat[к] < m то m: = Dat[к] все КЦ вывод m КОН	DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 16: Dat(2) = 20 Dat(3) = 20: Dat(4) = 41 Dat(5) = 14: Dat(6) = 21 Dat(7) = 28: Dat(8) = 11 Dat(9) = 15: Dat(10) = 35 m = 50 FOR k:= 1 TO 10 IF Dat(k) < m THEN m =Dat[k] ENDIF NEXT k PRINT m	Var k, m: integer; Dat: array[1...10] of integer; Begin Dat[1]:= 16; Dat[2]:= 20; Dat[3]:= 20; Dat[4]:= 41; Dat[5]:= 14; Dat[6]:= 21; Dat[7]:= 28; Dat[8]:= 11; Dat[9]:= 15; Dat[10]:= 35; m:= 50; for k:= 1 to 10 do if Dat[k] < m then begin m:= Dat[k] end; writeln(m); End.

98. За­да­ние 10 № 1164. В таб­ли­це Dat хра­нят­ся дан­ные из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за 10 дней в гра­ду­сах (Dat[1] — дан­ные за пер­вый день, Dat[2] — за вто­рой и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Dat[1:10] цел k, m Dat[1]:= 12 Dat[2]:= 15 Dat[3]:= 17 Dat[4]:= 15 Dat[5]:= 14 Dat[6]:= 12 Dat[7]:= 10 Dat[8]:= 13 Dat[9]:= 14 Dat[10]:= 15 m:= 20 нц для k от 1 до 10 если Dat[k] < m то m:= Dat[k] все кц вывод m кон	DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 12: Dat(2) = 15 Dat(3) = 17: Dat(4) = 15 Dat(5) = 14: Dat(6) = 12 Dat(7) = 10: Dat(8) = 13 Dat(9) = 14:Dat(10) = 15 m = 20 FOR k = 1 TO 10 IF Dat(k) < m THEN m = Dat(k) ENDIF NEXT k PRINT m	Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1]:= 12; Dat[2]:= 15; Dat[3]:= 17; Dat[4]:= 15; Dat[5]:= 14; Dat[6]:= 12; Dat[7]:= 10; Dat[8]:= 13; Dat[9]:= 14; Dat[10]:= 15; m:= 20; for k:= 1 to 10 do if Dat[k] < m then begin m:= Dat[k] end; writeln(m); End.

99. За­да­ние 10 № 806. Вла­де­лец круп­но­го яб­ло­не­во­го сада в те­че­ние 12 лет за­пи­сы­вал в таб­ли­цу App ко­ли­че­ство со­бран­но­го уро­жая. (App[1] — ко­ли­че­ство тонн яблок, со­бран­ных за пер­вый год, App[2] — за вто­рой и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг алг нач цел­таб App[1:12] цел k, m App[1]:= 100; App[2]:= 128 App[3]:= 80; App[4]:= 99 App[5]:= 120; App[6]:= 69 App[7]:= 55; App[8]:= 115 App[9]:= 84; App[10]:= 111 App[11]:= 59; App[12]:= 100 m:= 0 нц для k от 1 до 12 если App[k] > 100 то m:= m + 1 все кц m:= m + 10 вывод m кон	DIM App(12) AS INTEGER DIM k,m AS INTEGER App(1)= 100: App(2)= 128 App(3)= 80: App(4) = 99 App(5)= 120: App(6)= 69 App(7)= 55: App(8)= 115 App(9)= 84: App(10)= 111 App(11)= 59: App(12)= 100 m = 0 FOR k = 1 TO 12 IF App(k) > 100 THEN m = m + 1 END IF NEXT k m = m + 10 PRINT m	Var k, m: integer; App: array[1..12] of integer; Begin App[1]:= 100; App[2]:= 128; App[3]:= 80; App[4]:= 99; App[5]:= 120; App[6]:= 69; App[7]:= 55; App[8]:= 115; App[9]:= 84; App[10]:= 111; App[11]:= 59; App[12]:= 100; m:= 0; For k:= 1 to 12 Do If App[k] > 100 Then Begin m:= m + 1; End; m: = m + 10; Writeln(m); End.

100. За­да­ние 10 № 330. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве уче­ни­ков в клас­сах (Dat[1] — ко­ли­че­ство уче­ни­ков в пер­вом клас­се, Dat[2] — во вто­ром и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Dat[1:11] цел к, m Dat[1]:= 20 Dat[2]:= 25 Dat[3]:= 19 Dat[4]:= 25 Dat[5]:= 26 Dat[6]:= 22 Dat[7]:= 24 Dat[8]:= 28 Dat[9]:= 26 Dat[10]:= 21 Dat[11]:= 27 m:= 0 нц для к от 1 до 11 если Dat[к] > 22 то m: = m+1 все КЦ вывод m КОН	DIM Dat(11) AS INTEGER DIM k,m AS INTEGER Dat[1] = 20 Dat[2] = 25 Dat[3] = 19 Dat[4] = 25 Dat[5] = 26 Dat[6] = 22 Dat[7] = 24 Dat[8] = 28 Dat[9] = 26 Dat[10] = 21 Dat[11] = 27 m = 0 FOR k:= 1 TO 11 IF Dat(k) > 22 THEN m =m+1 ENDIF NEXT k PRINT m	Var k, m: integer; Dat: array[1...11] of integer; Begin Dat[1]:= 20; Dat[2]:= 25; Dat[3]:= 19; Dat[4]:= 25; Dat[5]:= 26; Dat[6]:= 22; Dat[7]:= 24; Dat[8]:= 28; Dat[9]:= 26; Dat[10]:= 21; Dat[11]:= 27; m:= 0 for k:= 1 to 11 do if Dat[k] > 22 then begin m:= m+1; end; writeln(m); End.

101. За­да­ние 11 № 552. На ри­сун­ке изоб­ра­же­на схема со­еди­не­ний, свя­зы­ва­ю­щих пунк­ты А, В, С, D, Е, F, G, Н. По каж­до­му со­еди­не­нию можно дви­гать­ся толь­ко в одном на­прав­ле­нии, ука­зан­ном стрел­кой. Сколь­ко су­ще­ству­ет раз­лич­ных путей из пунк­та А в пункт Н?

102. За­да­ние 11 № 472. На ри­сун­ке — схема дорог, свя­зы­ва­ю­щих го­ро­да А, Б, В, Г, Д, Е, К. По каж­дой до­ро­ге можно дви­гать­ся толь­ко в одном на­прав­ле­нии, ука­зан­ном стрел­кой. Сколь­ко су­ще­ству­ет раз­лич­ных путей из го­ро­да А в город К?

103. За­да­ние 11 № 291. На ри­сун­ке — схема дорог, свя­зы­ва­ю­щих го­ро­да А, Б, В, Г, Д, Е, Ж и К. По каж­дой до­ро­ге можно дви­гать­ся толь­ко в одном на­прав­ле­нии, ука­зан­ном стрел­кой. Сколь­ко су­ще­ству­ет раз­лич­ных путей из го­ро­да А в город К?

104. За­да­ние 11 № 910. На ри­сун­ке изоб­ра­же­на схема дорог, свя­зы­ва­ю­щих го­ро­да A, B, C, D, E, F, G. По каж­дой до­ро­ге можно дви­гать­ся толь­ко в одном на­прав­ле­нии, ука­зан­ном стрел­кой. Сколь­ко су­ще­ству­ет раз­лич­ных путей из го­ро­да A в город G?

 

105. За­да­ние 11 № 492. На ри­сун­ке — схема дорог, свя­зы­ва­ю­щих го­ро­да А, Б, В, Г, Д, Е, К. По каж­дой до­ро­ге можно дви­гать­ся толь­ко в одном на­прав­ле­нии, ука­зан­ном стрел­кой. Сколь­ко су­ще­ству­ет раз­лич­ных путей из го­ро­да А в город К?

106. За­да­ние 11 № 71. На ри­сун­ке — схема дорог, свя­зы­ва­ю­щих го­ро­да А, Б, В, Г, Д, Е, Ж и К. По каж­дой до­ро­ге можно дви­гать­ся толь­ко в одном на­прав­ле­нии, ука­зан­ном стрел­кой. Сколь­ко су­ще­ству­ет раз­лич­ных путей из го­ро­да А в город К?

107. За­да­ние 11 № 712. На ри­сун­ке — схема дорог, свя­зы­ва­ю­щих го­ро­да А, Б, В, Г, Д, Е, Ж и К. По каж­дой до­ро­ге можно дви­гать­ся толь­ко в одном на­прав­ле­нии, ука­зан­ном стрел­кой. Сколь­ко су­ще­ству­ет раз­лич­ных путей из го­ро­да А в город К?

108. За­да­ние 11 № 755. На ри­сун­ке — схема дорог, свя­зы­ва­ю­щих го­ро­да A, B, C, D, E, F, G. По каж­дой до­ро­ге можно дви­гать­ся толь­ко в одном на­прав­ле­нии, ука­зан­ном стрел­кой. Сколь­ко су­ще­ству­ет раз­лич­ных путей из го­ро­да А в город G?

109. За­да­ние 11 № 331. На ри­сун­ке — схема дорог, свя­зы­ва­ю­щих го­ро­да А, Б, В, Г, Д, Е, Ж и К. По каж­дой до­ро­ге можно дви­гать­ся толь­ко в одном на­прав­ле­нии, ука­зан­ном стрел­кой. Сколь­ко су­ще­ству­ет раз­лич­ных путей из го­ро­да А в город К?

110. За­да­ние 11 № 392. На ри­сун­ке — схема дорог, свя­зы­ва­ю­щих го­ро­да А, Б, В, Г, Д, Е, К. По каж­дой до­ро­ге можно дви­гать­ся толь­ко в одном на­прав­ле­нии, ука­зан­ном стрел­кой. Сколь­ко су­ще­ству­ет раз­лич­ных путей из го­ро­да А в город К?