При выполнении заданий с кратким ответом впишите в поле для ответа цифру, которая соответствует номеру правильного ответа, или число, слово, последовательность букв (слов) или цифр. Ответ следует записывать без пробелов и каких-либо дополнительных символов. Дробную часть отделяйте от целой десятичной запятой. Единицы измерений писать не нужно.
Если вариант задан учителем, вы можете вписать или загрузить в систему ответы к заданиям с развернутым ответом. Учитель увидит результаты выполнения заданий с кратким ответом и сможет оценить загруженные ответы к заданиям с развернутым ответом. Выставленные учителем баллы отобразятся в вашей статистике.
Версия для печати и копирования в MS Word
Вариант составлен по шаблону 2824976.
В таблице Dat хранятся данные о количестве самолетов, отправляющихся из аэропорта города на юг в первой декаде августа (Dat[1] — количество самолетов первого числа, Dat[2] — количество самолетов второго числа и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на пяти алгоритмических языках.
| Бейсик | Python |
|---|---|
DIM Dat(10) AS INTEGER DIM k, m, day AS INTEGER Dat(1) = 2: Dat(2) = 2 Dat(3) = 3: Dat(4) = 3 Dat(5) = 2: Dat(6) = 2 Dat(7) = 5: Dat(8) = 5 Dat(9) = 6: Dat(10) = 6 m = Dat(1); day = 1 FOR k = 2 TO 10 IF Dat(k) <= m THEN m = Dat(k) day = k ENDIF NEXT k PRINT day | Dat = [2, 2, 3, 3, 2, 2, 5, 5, 6, 6] m = Dat[0] day = 1 for k in range(1, 10): if Dat[k] <= m: m = Dat[k] day = k + 1 print (day)
|
| Паскаль | Алгоритмический язык |
Var k, m, day: integer; Dat: array[1..10] of integer; Begin Dat[1] := 2; Dat[2] := 2; Dat[3] := 3; Dat[4] := 3; Dat[5] := 2; Dat[6] := 2; Dat[7] := 5; Dat[8] := 5; Dat[9] := 6; Dat[10] := 6; m := Dat[1]; day := 1; for k := 2 to 10 do if Dat[k] <= m then begin m := Dat[k]; day := k; end; writeln(day); End.
| алг нач целтаб Dat[1:10] цел k, m, day Dat[1] := 2 Dat[2] := 2 Dat[3] := 3 Dat[4] := 3 Dat[5] := 2 Dat[6] := 2 Dat[7] := 5 Dat[8] := 5 Dat[9] := 6 Dat[10] := 6 m := Dat[1] day := 1 нц для k от 2 до 10 если Dat[k] <= m то m := Dat[k] day := k все кц вывод day кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Dat[10] = {2, 2, 3, 3, 2, 2, 5, 5, 6, 6}; int m = Dat[0]; int day = 1; for (int k = 1; k < 10; k++) if (Dat[k] <= m) { m = Dat[k]; day = k + 1; } cout << day; return 0; } | |
Ответ:
В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] — количество учеников в первом классе, Dat[2] — во втором и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведен на пяти языках программирования.
| Бейсик | Python |
|---|---|
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 | Dat = [20, 25, 19, 25, 26, 22, 24, 28, 26, 21, 27] m = 0 for k in range(11): if Dat[k] > 22: m = m + 1 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.
| алг нач целтаб 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] > 22 то m := m + 1 все кц вывод m кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Dat[11] = {20, 25, 19, 25, 26, 22, 24, 28, 26, 21, 27}; int m = 0; for (int k = 0; k < 11; k++) if (Dat[k] > 22) { m = m + 1; } cout << m; return 0; } | |
Ответ:
Владелец крупного яблоневого сада в течение 12 лет записывал в таблицу App количество собранного урожая. (App[1] — количество тонн яблок, собранных за первый год, App[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведен на пяти языках программирования.
| Бейсик | Python |
|---|---|
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 ENDIF NEXT k m = m + 10 PRINT m | App = [100, 128, 80, 99, 120, 69, 55, 115, 84, 111, 59, 100] m = 0 for k in range(12): if App[k] > 100: m = m + 1 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.
| алг нач целтаб 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 кон |
| С++ | |
#include <iostream> using namespace std; int main() { int App[12] = {100, 128, 80, 99, 120, 69, 55, 115, 84, 111, 59, 100}; int m = 0; for (int k = 0; k < 12; k++) if (App[k] > 100) m = m + 1; m = m + 10; cout << m; return 0; } | |
Ответ:
В таблице Dat хранятся отметки учащихся 9 класса за самостоятельную работу (Dat[1] — отметка первого учащегося, Dat[2] — второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведен на пяти языках программирования.
| Бейсик | Python |
|---|---|
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 ENDIF NEXT k PRINT m | Dat = [4, 5, 4, 3, 2, 3, 4, 5, 5, 3] m = 0 for k in range (10): if Dat[k] > 3: m = m + 1 print (m)
|
| Паскаль | Алгоритмический язык |
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.
| алг нач целтаб 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 кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Dat[10] = {4, 5, 4, 3, 2, 3, 4, 5, 5, 3}; int m = 0; for (int k = 0; k < 10; k++) if (Dat[k] > 3) m = m + 1; cout << m; return 0; } | |
Ответ:
В таблице Tur хранятся данные о количестве ребят, ходивших в поход вместе с туристическим клубом «Полянка». (Tur[1] — число ребят в 2001 году, Tur[2] — в 2002 году и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведен на пяти языках программирования:
| Бейсик | Python |
|---|---|
DIM Tur(11) AS INTEGER DIM k,m AS INTEGER Tur(1) = 1: Tur(2) = 11 Tur(3) = 8: Tur(4) = 12 Tur(5) = 5: Tur(6) = 6 Tur(7) = 15: Tur(8) = 16 Tur(9) = 16: Tur(10) = 21 Tur(11) = 7 m = 0 FOR k = 1 TO 11 IF Tur(k) > 12 THEN m = m + Tur(k) ENDIF NEXT k PRINT m | Tur = [1, 11, 8, 12, 5, 6, 15, 16, 16, 21, 7] m = 0 for k in range(11): if Tur[k] > 12: m = m + Tur[k] print (m)
|
| Паскаль | Алгоритмический язык |
Var k, m: integer; Tur: array[1..11] of integer; Begin Tur[1]:=1; Tur[2]:=11; Tur[3]:=8; Tur[4]:=12; Tur[5]:=5; Tur[6]:=6; Tur[7]:=15; Tur[8]:=16; Tur[9]:=16; Tur[10]:=21; Tur[11]:=7; m := 0; for k := 1 to 11 do if Tur[k] > 12 then begin m := m + Tur[k]; end; writeln(m); End.
| алг нач целтаб Tur[1:11] цел k, m Tur[1] := 1 Tur[2] := 11 Tur[3] := 8 Tur[4] := 12 Tur[5] := 5 Tur[6] := 6 Tur[7] := 15 Tur[8] := 16 Tur[9] := 16 Tur[10] := 21 Tur[11] := 7 m := 0 нц для k от 1 до 11 если Tur[k] > 12 то m := m + Tur[k] все кц вывод m кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Tur[11] = {1, 11, 8, 12, 5, 6, 15, 16, 16, 21, 7}; int m = 0; for (int k = 0; k < 11; k++) if (Tur[k] > 12) m = m + Tur[k]; cout << m; return 0; } | |
Ответ:
В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя; Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
|---|---|---|
алг нач целтаб Dat[1:10] цел k, 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 нц для k от 1 до 10 если Dat[k]>m то m := Dat[k] все кц вывод 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)>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] := 12; Dat[9] := 15; Dat[10] := 35; m := 0; for k := 1 to 10 do if Dat[k]>m then begin m := Dat[k] end; writeln(m); End. |
Ответ:
В таблице Pos хранятся данные о количестве посетителей школьного музея за семь дней (Pos[1] − данные за первый день, Pos[2] — за второй день и т. д.). Определите число, которое будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.
| Бейсик | Python |
|---|---|
DIM Pos(7) AS INTEGER DIM k, m, day AS INTEGER Pos(1) = 17: Pos(2) = 19 Pos(3) = 20: Pos(4) = 18 Pos(5) = 16: Pos(6) = 20 Pos(7) = 16 day = 1 m = Pos(1) FOR k = 2 TO 7 IF Pos(k) < m THEN m = Pos(k) day = k ENDIF NEXT k PRINT day | Pos = [17, 19, 20, 18, 16, 20, 16] day = 1 m = Pos[0] for k in range(1, 7): if Pos[k] < m: m = Pos[k] day = k + 1 print (day)
|
| Паскаль | Алгоритмический язык |
Var k, m, day: integer; Pos: array[1..7] of integer; Begin Pos[1] := 17; Pos[2] := 19; Pos[3] := 20; Pos[4] := 18; Pos[5] := 16; Pos[6] := 20; Pos[7] := 16; day := 1; m := Pos[1]; for k := 2 to 7 do if Pos[k] < m then begin m := Pos[k]; day := k; end; writeln(day); End.
| алг нач целтаб Pos[1:7] цел k, m, day Pos[1] := 17 Pos[2] := 19 Pos[3] := 20 Pos[4] := 18 Pos[5] := 16 Pos[6] := 20 Pos[7] := 16 day := 1 m := Pos[1] нц для k от 2 до 7 если Pos[k] < m то m := Pos[k] day := k все кц вывод day кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Pos[7] = {17, 19, 20, 18, 16, 20, 16}; int day = 1; int m = Pos[0]; for (int k = 1; k < 7; k++) if (Pos[k] < m) { day = k + 1; m = Pos[k]; } cout << day; return 0; } | |
Ответ:
В таблице Dat хранятся данные о количестве краткосрочных командировок, в которые приходилось ездить сотруднику за последний год (Dat[1] — количество командировок в январе, Dat[2] — количество командировок в феврале и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на пяти алгоритмических языках.
| Бейсик | Python |
|---|---|
DIM Dat(12) AS INTEGER DIM k, m, month AS INTEGER Dat(1) = 5: Dat(2) = 5 Dat(3) = 6: Dat(4) = 8 Dat(5) = 4: Dat(6) = 5 Dat(7) = 4: Dat(8) = 7 Dat(9) = 4: Dat(10) = 4 Dat(11) = 8: Dat(12) = 7 m = Dat(1); month = 1 FOR k = 2 TO 12 IF Dat(k) <= m THEN m = Dat(k) month = k ENDIF NEXT k PRINT month | Dat = [5, 5, 6, 8, 4, 5, 4, 7, 4, 4, 8, 7] m = Dat[0] month = 1 for k in range(1, 12): if Dat[k] <= m: m = Dat[k] month = k + 1 print (month)
|
| Паскаль | Алгоритмический язык |
Var k, m, month: integer; Dat: array[1..12] of integer; Begin Dat[1] := 5; Dat[2] := 5; Dat[3] := 6; Dat[4] := 8; Dat[5] := 4; Dat[6] := 5; Dat[7] := 4; Dat[8] := 7; Dat[9] := 4; Dat[10] := 4; Dat[11] := 8; Dat[12] := 7; m := Dat[1]; month := 1; for k := 2 to 12 do if Dat[k] <= m then begin m := Dat[k]; month := k; end; writeln(month); End.
| алг нач целтаб Dat[1:12] цел k, m, month Dat[1] := 5 Dat[2] := 5 Dat[3] := 6 Dat[4] := 8 Dat[5] := 4 Dat[6] := 5 Dat[7] := 4 Dat[8] := 7 Dat[9] := 4 Dat[10] := 4 Dat[11] := 8 Dat[12] := 7 m := Dat[1] month := 1 нц для k от 2 до 12 если Dat[k] <= m то m := Dat[k] month := k все кц вывод month кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Dat[12] = {5, 5, 6, 8, 4, 5, 4, 7, 4, 4, 8, 7}; int m = Dat[0]; int month = 1; for (int k = 1; k < 12; k++) if (Dat[k] <= m) { m = Dat[k]; month = k + 1; } cout << month; return 0; } | |
Ответ:
В таблице Sea хранятся данные о количестве россиян, отдыхавших на Черном море (Sea[1] — число россиян в 2001 году, Sea[2] — в 2002 и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведен на пяти языках программирования:
| Бейсик | Python |
|---|---|
DIM Sea(12) AS INTEGER DIM k,s AS INTEGER Sea(1) = 170: Sea(2) = 170 Sea(3) = 190: Sea(4) = 210 Sea(5) = 230: Sea(6) = 220 Sea(7) = 240: Sea(8) = 160 Sea(9) = 190: Sea(10) = 210 Sea(11) = 170: Sea(12) = 170 s = 100 FOR k = 1 TO 12 IF Sea(k) > 220 THEN s = s + Sea(k) ENDIF NEXT k PRINT s | Sea = [170, 170, 190, 210, 230, 220, 240, 160, 190, 210, 170, 170] s = 100 for k in range(12): if Sea[k] > 220: s = s + Sea[k] print (s)
|
| Паскаль | Алгоритмический язык |
Var k, s: integer; Sea: array[1..12] of integer; Begin Sea[1]:=170; Sea[2]:=170; Sea[3]:=190; Sea[4]:=210; Sea[5]:=230; Sea[6]:=220; Sea[7]:=240; Sea[8]:=160; Sea[9]:=190; Sea[10]:=210; Sea[11]:=170; Sea[12]:=170; s := 100; for k := 1 to 12 do if Sea[k] > 220 then begin s := s + Sea[k]; end; writeln(s); End.
| алг нач целтаб Sea[1:12] цел k, s Sea[1] := 170 Sea[2] := 170 Sea[3] := 190 Sea[4] := 210 Sea[5] := 230 Sea[6] := 220 Sea[7] := 240 Sea[8] := 160 Sea[9] := 190 Sea[10] := 210 Sea[11] := 170 Sea[12] := 170 s := 100 нц для k от 1 до 12 если Sea[k] > 220 то s := s + Sea[k] все кц вывод s кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Sea[12] = {170, 170, 190, 210, 230, 220, 240, 160, 190, 210, 170, 170}; int s = 100; for (int k = 0; k < 12; k++) if (Sea[k] > 220) s = s + Sea[k]; cout << s; return 0; } | |
Ответ:
В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведен на пяти языках программирования.
| Бейсик | Python |
|---|---|
DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 56: Dat(2) = 70 Dat(3) = 20: Dat(4) = 41 Dat(5) = 14: Dat(6) = 22 Dat(7) = 30: Dat(8) = 12 Dat(9) = 65: Dat(10) = 35 m = 0 FOR k = 1 TO 10 IF Dat(k) > 25 THEN m = m + 1 ENDIF NEXT k PRINT m | Dat = [56, 70, 20, 41, 14, 22, 30, 12, 65, 35] m = 0 for k in range(10): if Dat[k] > 25: m = m + 1 print (m)
|
| Паскаль | Алгоритмический язык |
Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 56; Dat[2] := 70; Dat[3] := 20; Dat[4] := 41; Dat[5] := 14; Dat[6] := 22; Dat[7] := 30; Dat[8] := 12; Dat[9] := 65; Dat[10] := 35; m := 0; for k := 1 to 10 do if Dat[k] > 25 then begin m := m + 1; end; writeln(m); End.
| алг нач целтаб Dat[1:10] цел k, m Dat[1] := 56 Dat[2] := 70 Dat[3] := 20 Dat[4] := 41 Dat[5] := 14 Dat[6] := 22 Dat[7] := 30 Dat[8] := 12 Dat[9] := 65 Dat[10] := 35 m := 0 нц для k от 1 до 10 если Dat[k] > 25 то m := m + 1 все кц вывод m кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Dat[10] = {56, 70, 20, 41, 14, 22, 30, 12, 65, 35}; int m = 0; for (int k = 0; k < 10; k++) if (Dat[k] > 25) m = m + 1; cout << m; return 0; } | |
Ответ:
В таблице Dat хранятся оценки (по десятибалльной шкале) студента по программированию за 8 прошедших с начала учебы семестров (Dat[1] — оценка за первый семестр, Dat[2] — за второй и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на пяти алгоритмических языках.
| Бейсик | Python |
|---|---|
DIM Dat(8) AS INTEGER DIM k, m, term AS INTEGER Dat(1) = 7: Dat(2) = 7 Dat(3) = 6: Dat(4) = 8 Dat(5) = 4: Dat(6) = 5 Dat(7) = 4: Dat(8) = 7 m = Dat(1); term = 1 FOR k = 2 TO 8 IF Dat(k) < m THEN m = Dat(k) term = k ENDIF NEXT k PRINT term | Dat = [7, 7, 6, 8, 4, 5, 4, 7] m = Dat[0] term = 1 for k in range(1, 8): if Dat[k] < m: m = Dat[k] term = k + 1 print (term)
|
| Паскаль | Алгоритмический язык |
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] := 4; Dat[8] := 7; m := Dat[1]; term := 1; for k := 2 to 8 do if Dat[k] < m then begin m := Dat[k]; term := k; end; writeln(term); End.
| алг нач целтаб Dat[1:8] цел k, m, term Dat[1] := 7 Dat[2] := 7 Dat[3] := 6 Dat[4] := 8 Dat[5] := 4 Dat[6] := 5 Dat[7] := 4 Dat[8] := 7 m := Dat[1] term := 1 нц для k от 2 до 8 если Dat[k] < m то m := Dat[k] term := k все кц вывод term кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Dat[8] = {7, 7, 6, 8, 4, 5, 4, 7}; int m = Dat[0]; int term = 1; for (int k = 1; k < 8; k++){ if (Dat[k] < m) { m = Dat[k]; term = k + 1; } } cout << term; return 0; } | |
Ответ:
В таблице Dat хранятся данные о количестве сделанных учениками заданий (Dat[1] заданий сделал первый ученик, Dat[2] — второй и т. д.). Определите число, которое будет напечатано в результате работы следующей программы. Текст программы приведен на пяти языках программирования.
| Бейсик | Python |
|---|---|
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 m | Dat = [7, 9, 10, 5, 6, 7, 9, 8, 6, 9] m = 10 n = 0 for k in range(0,10): if Dat[k] <= m: m = Dat[k] n = k + 1 print (m)
|
| Паскаль | Алгоритмический язык |
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(m); End.
| алг нач целтаб 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] := 8 Dat[9] := 6 Dat[10] := 9 m := 10 n := 0 нц для k от 1 до 10 если Dat[k] <= m то m := Dat[k] n := k все кц вывод m кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Dat[10] = {7, 9, 10, 5, 6, 7, 9, 8, 6, 9}; int m = 10; int n = 0; for (int k = 0; k < 10; k++) if (Dat[k] <= m) { m = Dat[k]; n = k + 1; } cout << m; return 0; } | |
Ответ:
В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведен на пяти языках программирования.
| Бейсик | Python |
|---|---|
DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 56: Dat(2) = 70 Dat(3) = 20: Dat(4) = 41 Dat(5) = 14: Dat(6) = 22 Dat(7) = 30: Dat(8) = 12 Dat(9) = 65: Dat(10) = 35 m = 100 FOR k = 1 TO 10 IF Dat(k) < m THEN m = Dat(k) ENDIF NEXT k PRINT m | Dat = [56, 70, 20, 41, 14, 22, 30, 12, 65, 35] m = 100 for k in range(10): if Dat[k] < m: m = Dat[k] print (m)
|
| Паскаль | Алгоритмический язык |
Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 56; Dat[2] := 70; Dat[3] := 20; Dat[4] := 41; Dat[5] := 14; Dat[6] := 22; Dat[7] := 30; Dat[8] := 12; Dat[9] := 65; Dat[10] := 35; m := 100; for k := 1 to 10 do if Dat[k] < m then begin m := Dat[k]; end; writeln(m); End.
| алг нач целтаб Dat[1:10] цел k, m Dat[1] := 56 Dat[2] := 70 Dat[3] := 20 Dat[4] := 41 Dat[5] := 14 Dat[6] := 22 Dat[7] := 30 Dat[8] := 12 Dat[9] := 65 Dat[10] := 35 m := 100 нц для k от 1 до 10 если Dat[k] < m то m := Dat[k] все кц вывод m кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Dat[10] = {56, 70, 20, 41, 14, 22, 30, 12, 65, 35}; int m = 100; for (int k = 0; k < 10; k++) if (Dat[k] < m) m = Dat[k]; cout << m; return 0; } | |
Ответ:
Школьник делал лабораторную работу по физике, в ходе которой измерил 10 раз силу тока и записал показания амперметра в таблицу Tok (Tok[1] — результат первого измерения, Tok[2] — второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведен на пяти языках программирования.
| Бейсик | Python |
|---|---|
DIM Tok(10) AS INTEGER DIM k,m AS INTEGER Tok(1) = 10: Tok(2) = 14 Tok(3) = 15: Tok(4) = 4 Tok(5) = 12: Tok(6) = 6 Tok(7) = 3: Tok(8) = 5 Tok(9) = 5: Tok(10) = 10 m = 22 FOR k = 1 TO 10 IF Tok(k) > 10 THEN m = m − 1 ENDIF NEXT k PRINT m | Tok = [10, 14, 15, 4, 12, 6, 3, 5, 5, 10] m = 22 for k in range (10): if Tok[k] > 10: m = m − 1 print (m)
|
| Паскаль | Алгоритмический язык |
Var k, m: integer; Tok: array[1..10] of integer; Begin Tok[1] := 10; Tok[2] := 14; Tok[3] := 15; Tok[4] := 4; Tok[5] := 12; Tok[6] := 6; Tok[7] := 3; Tok[8] := 5; Tok[9] := 5; Tok[10] := 10; m := 22; for k := 1 to 10 do if Tok[k] > 10 then begin m := m − 1; end; writeln(m); End.
| алг нач целтаб Tok[1:10] цел k, m Tok[1] := 10 Tok[2] := 14 Tok[3] := 15 Tok[4] := 4 Tok[5] := 12 Tok[6] := 6 Tok[7] := 3 Tok[8] := 5 Tok[9] := 5 Tok[10] := 10 m := 22 нц для k от 1 до 10 если Tok[k] > 10 то m := m − 1 все кц вывод m кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Tok[10] = {10, 14, 15, 4, 12, 6, 3, 5, 5, 10}; int m = 22; for (int k = 0; k < 10; k++) if (Tok[k] > 10) m = m − 1; cout << m; return 0; } | |
Ответ:
В таблице Dat хранятся данные о количестве сделанных заданий учениками (Dat[1] заданий сделал первый ученик, Dat[2] — второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведен на пяти языках программирования.
| Бейсик | Python |
|---|---|
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 | Dat = [7, 9, 10, 5, 6, 7, 9, 8, 6, 9] m = 10 n = 0 for k in range(0,10): if Dat[k] < m: m = Dat[k] n = k + 1 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.
| алг нач целтаб 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] := 8 Dat[9] := 6 Dat[10] := 9 m := 10 n := 0 нц для k от 1 до 10 если Dat[k] < m то m := Dat[k] n := k все кц вывод n кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Dat[10] = {7, 9, 10, 5, 6, 7, 9, 8, 6, 9}; int m = 10; int n = 0; for (int k = 0; k < 10; k++) if (Dat[k] < m) { m = Dat[k]; n = k + 1; } cout << n; return 0; } | |
Ответ:

