ДСР_9 класс_Информатика

1. Агент 007, пе­ре­да­вая важ­ные све­де­ния сво­е­му напарнику, за­ко­ди­ро­вал со­об­ще­ние при­ду­ман­ным шифром. В со­об­ще­нии при­сут­ству­ют толь­ко буквы из приведённого фраг­мен­та ко­до­вой таблицы.

Р	Ы	В	О	С
€ £	£ £ €	£ £	£ €	£ € £

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

£ £ £ € € £ £ € £.

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

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

a := 4
b := 5
a := b + 15
b := 100/a*4

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

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

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

4. В таб­ли­це 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] := 12 Dat[9] := 15 Dat[10] := 35 m := 0 нц для к от 1 до 10 если Dat[к] < 25 то m : = m+1 все КЦ вывод 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) = 12 Dat(9) = 15: Dat(10) = 35 m = 0 FOR k := 1 TO 10 IF Dat(k) < 25 THEN m =m+1 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] := 12; Dat[9] := 15; Dat[10] := 35; m := 0; for k := 1 to 10 do if Dat[k] < 25 then begin m := m+1 end; writeln(m); End.