Переводной экзамен по информатике. 8 класс

ПЛАН ЭКЗАМЕНАЦИОННОЙ РАБОТЫ ОГЭ ПО ИНФОРМАТИКЕ 2017 ГОДА 

Работа состоит из 11 заданий: базового уровня сложности 10, повышенного — 1 Работа рассчитана на 45 минут.

Обозначение уровня сложности задания: Б — базовый, П — повышенный

№	Проверяемые элементы содержания и виды деятельности	Уровень сложности задания	Максимальный балл за выполнение задания	Примерное время выполнения задания (мин.)
Часть 1
1	Задание 1. Умение оценивать количественные параметры информационных объектов	Б	1	3
2	Задание 2. Умение определять значение логического выражения	Б	1	3
3	Задание 3. Умение анализировать формальные описания реальных объектов и процессов	Б	1	3
4	Задание 4. Знание о файловой системе организации данных	Б	1	3
5	Задание 7. Умение кодировать и декодировать информацию	Б	1	4
6	Задание 8. Умение исполнить линейный алгоритм, записанный на алгоритмическом языке	Б	1	3
7	Задание 11. Умение анализировать информацию, представленную в виде схем	Б	1	4
8	Задание 12. Умение осуществлять поиск в готовой базе данных по сформулированному условию	Б	1	3
9	Задание 13. Знание о дискретной форме представления числовой, текстовой, графической и звуковой информации	Б	1	3
10	Задание 17. Умение использовать информационно-коммуникационные технологии	Б	1	3
Часть 2
11	Задание 16. Умение исполнить алгоритм, записанный на естественном языке, обрабатывающий цепочки символов или списки	П	1	7

ШКАЛА ПЕРЕВОДА ОТМЕТОК

Отметка по пятибалльной шкале	«2»	«3»	«4»	«5»
Общий балл	0—4	5-7	8-9	10-11

ЧТО МОЖНО ВЗЯТЬ С СОБОЙ НА ЭКЗАМЕН

Для выполнения заданий  не используются дополнительные материалы.

Демо-версия переводного экзамена по информатике

Вариант 1.

Часть 1

Ученик на­би­ра­ет со­чи­не­ние по ли­те­ра­ту­ре на компьютере, ис­поль­зуя ко­ди­ров­ку KOI-8. Опре­де­ли­те какой объём па­мя­ти займёт сле­ду­ю­щая фраза:

Пушкин — это наше всё!

Каждый сим­вол в ко­ди­ров­ке KOI-8 за­ни­ма­ет 8 бит памяти.

1) 22 бита

2) 88 байт

3) 44 байт

4) 176 бит

Задание 1 № 622

2. Для ка­ко­го из приведённых чисел ложно высказывание: НЕ (число > 30) ИЛИ (число чётное)?

1) 28

2) 34

3) 17

4) 45

Задание 2 № 901

3. Между населёнными пунк­та­ми А, В, С, D, Е, F по­стро­е­ны дороги, протяжённость ко­то­рых при­ве­де­на в таблице:

Определите длину крат­чай­ше­го пути между пунк­та­ми А и F (при условии, что пе­ре­дви­гать­ся можно толь­ко по по­стро­ен­ным дорогам).

1) 5

2) 6

3) 3

4) 4

Задание 3 № 464

4. В ка­та­ло­ге С:\Красная_книга\Россия хра­нил­ся файл Растения_степей.doc. Пользователь, на­хо­див­ший­ся в этом каталоге, под­нял­ся на один уро­вень вверх, со­здал каталогЕвразия и пе­ре­ме­стил в со­здан­ный под­ка­та­лог папку Россия вме­сте со всем содержимым. Ка­ко­во стало пол­ное имя файла Растения степей.doc после перемещения?

1) С:\Красная_книга\Евразия\Россия

2) С:\Евразия\Россия\Растения степей.doc

3) С \Красная_книга\Растения_степей.doc

4) С:\Красная_книга\Евразия\Россия\Растения_степей.doc

Задание 4 № 685

5. Мальчики иг­ра­ли в шпи­о­нов и за­ко­ди­ро­ва­ли со­об­ще­ние при­ду­ман­ным шифром. Ко­до­вая таб­ли­ца при­ве­де­на ниже:

К	Л	М	Н	О	П	Р
+_+	_*	*+	_++	*	_ _ +	_ _

Расшифруйте по­лу­чен­ное сообщение:

* + _+ + _ + + _ _ _ *

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

Задание 7 № 287

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

а := 4
b := 4
b := a/2*b
a := 2*а + 3*b

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

Задание 8 № 248

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

Задание 11 № 1125

8. Ниже в таб­лич­ной форме пред­став­лен фраг­мент базы о та­ри­фах мос­ков­ско­го метрополитена.

Вид проездногобилета	Стоимостьв рублях	Срок действияв днях
1 поездка	30	5
2 поездки	60	5
5 поездок	150	90
11 поездок	300	90
20 поездок	500	90
40 поездок	1000	90
60 поездок	1200	90

Сколько за­пи­сей в дан­ном фраг­мен­те удо­вле­тво­ря­ют усло­вию (Стоимость в руб­лях > 400) ИЛИ (Срок дей­ствия < 30 дней )? В от­ве­те ука­жи­те одно число — ис­ко­мое ко­ли­че­ство записей.

Задание 12 № 850

9. Переведите число 305 из де­ся­тич­ной си­сте­мы счис­ле­ния в дво­ич­ную си­сте­му счисления. Сколь­ко еди­ниц со­дер­жит по­лу­чен­ное число? В от­ве­те ука­жи­те одно число — ко­ли­че­ство единиц.

Задание 13 № 674

10 Доступ к файлу com.xls, находящемуся на сервере tt.com, осуществляется по протоколу http. Фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность этих букв, кодирующую адрес указанного файла в сети Интернет.

А) com

Б) xls

В) com.

Г) http

Д) tt.

Е) /

Ж) ://

Задание 17 № 1171

Часть 2

11 Некоторый ал­го­ритм из одной це­поч­ки сим­во­лов по­лу­ча­ет новую це­поч­ку сле­ду­ю­щим образом. Сна­ча­ла вы­чис­ля­ет­ся длина ис­ход­ной це­поч­ки символов; если она нечётна, то уда­ля­ет­ся сред­ний сим­вол це­поч­ки символов, а если чётна, то в конец це­поч­ки до­бав­ля­ет­ся буква С. В по­лу­чен­ной це­поч­ке сим­во­лов каж­дая буква за­ме­ня­ет­ся буквой, сле­ду­ю­щей за ней в рус­ском ал­фа­ви­те (А — на Б, Б — на В и т. д., а Я — на А). По­лу­чив­ша­я­ся таким об­ра­зом це­поч­ка яв­ля­ет­ся ре­зуль­та­том ра­бо­ты алгоритма.

Например, если ис­ход­ной была це­поч­ка ЛЕС, то ре­зуль­та­том ра­бо­ты ал­го­рит­ма будет це­поч­ка МТ, а если ис­ход­ной была це­поч­ка ГОРА, то ре­зуль­та­том ра­бо­ты ал­го­рит­ма будет це­поч­каДПСБТ.

Дана це­поч­ка сим­во­лов СТЕПЬ. Какая це­поч­ка сим­во­лов получится, если к дан­ной це­поч­ке при­ме­нить опи­сан­ный ал­го­ритм два­жды (т. е. при­ме­нить ал­го­ритм к дан­ной цепочке, а затем к ре­зуль­та­ту вновь при­ме­нить алгоритм)? Рус­ский алфавит: АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ.

Задание 16 № 677

Ключ

№

задания  Ответ

1                      4

2                      4

3                      4

4                      4

5                      МННРЛ

6                      32

7                      8

8                      5

9                      4

10                    УФСЮТ

11                    ГЖДАЕВБ

Домашняя работа_10 класс_cosx=a

Теоретический материал

Примеры с решениями

 Задания для самостоятельного решения

Вставка формул_8 класс

Классная работа_9 класс

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

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

2. В таб­ли­це Work хра­нят­ся дан­ные о ко­ли­че­стве за­ка­зов, при­ня­тых фир­мой «Кон­фет­ти» с пер­во­го по 15 де­каб­ря. (Work[1] − число за­ка­зов, при­ня­тых 1 де­каб­ря, Work[2] − 2 де­каб­ря и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния:

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

3. Со­труд­ник ме­те­о­бю­ро в ходе из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за­пи­сы­вал по­ка­за­ния тер­мо­мет­ра в таб­ли­цу 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.

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

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач     цел­таб Dat[1:11]     цел k, 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     нц для k от 1 до 11         если Dat[k] < 25 то             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) < 25 THEN m = m + 1 END IF 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] < 25 then             begin                 m := m + 1             end;         writeln(m) End.

5. В таб­ли­це 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 := 0 нц для i от 1 до 14 если Ves[i] > 26 то n : = n + 1 все КЦ вывод 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 = 0 FOR i = 1 TO 14 IF Ves(i) > 26 THEN n : = n + 1 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 := 0; For i := 1 to 14 Do If Ves[i] > 26 Then Begin n : = n + 1; End; Writeln(n); End.

6. Вла­де­лец круп­но­го яб­ло­не­во­го сада в те­че­ние 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] < 80 то m := m + 1 все кц m := m + 20 вывод 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) < 80 THEN m = m + 1 END IF NEXT k m = m + 20 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] < 80 Then Begin m := m + 1; End; m : = m + 20; Writeln(m); End.

7. В таб­ли­це 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.

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

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

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

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алгнач цел­таб Dat[1:10] цел к, 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] := 8 Dat[9] := 6 Dat[10] := 9 m := 10; n: = 0 нц для к от 1 до 10 если Dat[к] < m то m : = Dat[к] n: = к все КЦ вывод 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] = 8 Dat[9] = 6 Dat[10] = 9 m = 10; n = 0 FOR k := 1 TO 10 IF Dat(k) < m THEN m =Dat[k] n = k ENDIF 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] := 8; Dat[9] := 6; Dat[10] := 9; m := 10; n: = 0; for k := 1 to 10 do if Dat[k] < m then begin m := Dat[k]; n := k end; writeln(n); End.

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

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