При выполнении заданий с кратким ответом впишите в поле для ответа цифру, которая соответствует номеру правильного ответа, или число, слово, последовательность букв (слов) или цифр. Ответ следует записывать без пробелов и каких-либо дополнительных символов. Дробную часть отделяйте от целой десятичной запятой. Единицы измерений писать не нужно.
Если вариант задан учителем, вы можете вписать или загрузить в систему ответы к заданиям с развернутым ответом. Учитель увидит результаты выполнения заданий с кратким ответом и сможет оценить загруженные ответы к заданиям с развернутым ответом. Выставленные учителем баллы отобразятся в вашей статистике.
Версия для печати и копирования в MS Word
Вариант составлен по шаблону 2824976.
В таблице A хранятся данные о количестве призеров олимпиады по программированию по девяти округам Москвы. Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на пяти языках программирования.
| Бейсик | Python |
|---|---|
DIM A(9) AS INTEGER DIM k, score AS INTEGER A(1) = 6: A(2) = 11 A(3) = 7: A(4) = 12 A(5) = 13: A(6) = 5 A(7) = 9: A(8) = 3 A(9) = 4 score = 0 FOR k = 1 TO 9 IF A(k) >= 9 THEN score = score + A(k) ENDIF NEXT k PRINT score | A = [6, 11, 7, 12, 13, 5, 9, 3, 4] score = 0 for k in range (9): if A[k] >= 9: score = score + A[k] print (score)
|
| Паскаль | Алгоритмический язык |
Var k, score: integer; A: array[1..9] of integer; Begin A[1]:=6;A[2]:=11; A[3]:=7;A[4]:=12; A[5]:=13;A[6]:=5; A[7]:=9;A[8]:=3; A[9]:=4; score := 0; for k := 1 to 9 do if A[k] >= 9 then begin score := score + A[k]; end; writeln(score); End.
| алг нач целтаб A[1:9] цел k, score A[1] := 6 A[2] := 11 A[3] := 7 A[4] := 12 A[5] := 13 A[6] := 5 A[7] := 9 A[8] := 3 A[9] := 4 score := 0 нц для k от 1 до 9 если A[k] >= 9 то score := score + A[k] все кц вывод score кон |
| С++ | |
#include <iostream> using namespace std; int main() { int A[9] = {6, 11, 7, 12, 13, 5, 9, 3, 4}; int score = 0; for (int k = 0; k < 9; k++) if (A[k] >= 9) score = score + A[k]; cout << score; return 0; } | |
Ответ:
В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведен на пяти языках программирования.
| Бейсик | Python |
|---|---|
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 | Dat = [12, 15, 17, 15, 14, 12, 10, 13, 14, 15] m = 20 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] := 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.
| алг нач целтаб 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 кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Dat[10] = {12, 15, 17, 15, 14, 12, 10, 13, 14, 15}; int m = 20; for (int k = 0; k < 10; k++) if (Dat[k] < m) m = Dat[k]; cout << m; return 0; } | |
Ответ:
В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведен на пяти языках программирования.
| Бейсик | Python |
|---|---|
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) > 12 THEN m = m + 1 ENDIF NEXT k PRINT m | Dat = [12, 15, 17, 15, 14, 12, 10, 13, 14, 15] m = 0 for k in range (10): if Dat[k] > 12: m = m + 1 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] > 12 then begin m := m + 1; end; writeln(m); End.
| алг нач целтаб 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 := 0 нц для k от 1 до 10 если Dat[k] > 12 то m := m + 1 все кц вывод m кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Dat[10] = {12, 15, 17, 15, 14, 12, 10, 13, 14, 15}; int m = 0; for (int k = 0; k < 10; k++) if (Dat[k] > 12) m = m + 1; cout << m; return 0; } | |
Ответ:
Известная авиакомпания заносила данные о количестве утерянного багажа за год в таблицу Lose. Всего были занесены данные за последние 10 лет работы компании (Lose[1] — количество утерянного багажа за первый год работы, Lose[2] — за второй год и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведен на пяти языках программирования.
| Бейсик | Python |
|---|---|
DIM Lose(10) AS INTEGER DIM t,m AS INTEGER Lose(1) = 1: Lose(2) = 5 Lose(3) = 3: Lose(4) = 6 Lose(5) = 7: Lose(6) = 12 Lose(7) = 1: Lose(8) = 3 Lose(9) = 3: Lose(10) = 1 m = 0 FOR t = 1 TO 10 IF Lose(t) < 6 THEN m = m + Lose(t) ENDIF NEXT t PRINT m | Lose = [1, 5, 3, 6, 7, 12, 1, 3, 3, 1] m = 0 for t in range (10): if Lose[t] < 6: m = m + Lose[t] print (m)
|
| Паскаль | Алгоритмический язык |
Var t, m: integer; Lose: array[1..10] of integer; Begin Lose[1]:=1;Lose[2]:=5; Lose[3]:=3;Lose[4]:=6; Lose[5]:=7;Lose[6]:=12; Lose[7]:=1;Lose[8]:=3; Lose[9]:=3;Lose[10]:=1; m := 0; for t := 1 to 10 do if Lose[t] < 6 then begin m := m + Lose[t]; end; writeln(m); End.
| алг нач целтаб Lose[1:10] цел t, m Lose[1] := 1 Lose[2] := 5 Lose[3] := 3 Lose[4] := 6 Lose[5] := 7 Lose[6] := 12 Lose[7] := 1 Lose[8] := 3 Lose[9] := 3 Lose[10] := 1 m := 0 нц для t от 1 до 10 если Lose[t] < 6 то m := m + Lose[t] все кц вывод m кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Lose[10] = {1, 5, 3, 6, 7, 12, 1, 3, 3, 1}; int m = 0; for (int t = 0; t < 10; t++) if (Lose[t] < 6) m = m + Lose[t]; 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 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 хранятся данные о количестве самолетов, отправляющихся из аэропорта города на юг в первой декаде августа (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) = 4: Dat(6) = 4 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, 4, 4, 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] := 4; Dat[6] := 4; 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] := 4 Dat[6] := 4 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, 4, 4, 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; } | |
Ответ:
Сотрудник метеобюро в ходе измерений среднесуточной температуры записывал показания термометра в таблицу Tem (Tem[1] — температура, полученная в результате первого измерения, Tem[2] — второго и т. д.).
Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведен на пяти языках программирования.
| Бейсик | Python |
|---|---|
DIM Tem(12) AS INTEGER DIM k, b AS INTEGER 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 b = 0 FOR k = 1 TO 12 IF Tem(k) < 19 THEN b = b + Tem(k) ENDIF NEXT k PRINT b | Tem = [22, 25, 20, 18, 16, 14, 20, 23, 17, 19, 20, 21] b = 0 for k in range (12): if Tem[k] < 19: b = b + Tem[k] print (b)
|
| Паскаль | Алгоритмический язык |
Var k, b: integer; Tem: array[1..12] of integer; Begin 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; b := 0; for k := 1 to 12 do if Tem[k] < 19 then begin b := b + Tem[k]; end; writeln(b); End.
| алг нач целтаб Tem[1:12] цел k, b 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 b := 0 нц для k от 1 до 12 если Tem[k] < 19 то b := b + Tem[k] все кц вывод b кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Tem[12] = {22, 25, 20, 18, 16, 14, 20, 23, 17, 19, 20, 21}; int b = 0; for (int k = 0; k < 12; k++) if (Tem[k] < 19) b = b + Tem[k]; cout << b; 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) = 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 ENDIF NEXT k PRINT n | Dat = [7, 9, 10, 5, 6, 7, 9, 10, 6, 9] m = 0 n = 0 for k in range(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] := 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.
| алг нач целтаб 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 кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Dat[10] = {7, 9, 10, 5, 6, 7, 9, 10, 6, 9}; int m = 0; int n = 0; for (int k = 0; k < 10; k++) if (Dat[k] >= m) { m = Dat[k]; n = k + 1; } cout << n; return 0; } | |
Ответ:
В таблице Dat хранятся данные о количестве поездов, отправляющихся с центрального вокзала города на юг в первой декаде июля (Dat[1] — количество поездов первого числа, Dat[2] — количество поездов второго числа и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на пяти алгоритмических языках.
| Бейсик | Python |
|---|---|
DIM Dat(10) AS INTEGER DIM k, m, day AS INTEGER Dat(1) = 2: Dat(2) = 6 Dat(3) = 3: Dat(4) = 5 Dat(5) = 4: Dat(6) = 4 Dat(7) = 5: Dat(8) = 3 Dat(9) = 6: Dat(10) = 2 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, 6, 3, 5, 4, 4, 5, 3, 6, 2] 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] := 6; Dat[3] := 3; Dat[4] := 5; Dat[5] := 4; Dat[6] := 4; Dat[7] := 5; Dat[8] := 3; Dat[9] := 6; Dat[10] := 2; 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] := 6 Dat[3] := 3 Dat[4] := 5 Dat[5] := 4 Dat[6] := 4 Dat[7] := 5 Dat[8] := 3 Dat[9] := 6 Dat[10] := 2 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, 6, 3, 5, 4, 4, 5, 3, 6, 2}; 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(12) AS INTEGER DIM k, m, month 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 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 = [2, 5, 6, 8, 8, 5, 3, 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] := 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; 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] := 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 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] = {2, 5, 6, 8, 8, 5, 3, 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; } | |
Ответ:
Владелец крупного яблоневого сада в течение 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) < 80 THEN m = m + 1 ENDIF NEXT k m = m + 20 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] < 80: m = m + 1 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.
| алг нач целтаб 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 кон |
| С++ | |
#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] < 80) m = m + 1; m = m + 20; cout << m; return 0; } | |
Ответ:
В таблице Dat хранятся данные ежедневных измерений количества осадков за неделю в миллиметрах (Dat[1] — данные за понедельник, Dat[2] — за вторник и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на пяти языках программирования.
| Бейсик | Python |
|---|---|
DIM Dat(7) AS INTEGER DIM k, day AS INTEGER Dat(1) = 14: Dat(2) = 9 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 | Dat = [14, 10, 0, 15, 0, 15, 10] day = 0 for k in range(7): if Dat[k] == 0: day = k + 1 print (day)
|
| Паскаль | Алгоритмический язык |
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 begin day := k; end; writeln(day); End.
| алг нач целтаб 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 кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Dat[7] = {14, 10, 0, 15, 0, 15, 10}; int day = 0; for (int k = 0; k < 7; k++) if (Dat[k] == 0) day = k + 1; cout << day; return 0; } | |
Ответ:
В таблице 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 представлены данные о количестве голосов, поданных за 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 хранятся данные о количестве детских праздников, которые проводило кафе за последний год (Dat[1] — количество детских праздников в январе, Dat[2] — количество праздников в феврале и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на пяти алгоритмических языках.
| Бейсик | Python |
|---|---|
DIM Dat(12) AS INTEGER DIM k, m, month AS INTEGER Dat(1) = 2: Dat(2) = 8 Dat(3) = 6: Dat(4) = 3 Dat(5) = 8: Dat(6) = 2 Dat(7) = 3: Dat(8) = 7 Dat(9) = 4: Dat(10) = 4 Dat(11) = 8: Dat(12) = 7 m = Dat(1); month = 1 FOR k = 2 TO 6 IF Dat(k) > m THEN m = Dat(k) month = k ENDIF NEXT k PRINT month | Dat = [2, 8, 6, 3, 8, 2, 3, 7, 4, 4, 8, 7] m = Dat[0] month = 1 for k in range(1, 7): 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] := 2; Dat[2] := 8; Dat[3] := 6; Dat[4] := 3; Dat[5] := 8; Dat[6] := 2; Dat[7] := 3; Dat[8] := 7; Dat[9] := 4; Dat[10] := 4; Dat[11] := 8; Dat[12] := 7; m := Dat[1]; month := 1; for k := 2 to 6 do if Dat[k] > m then begin m := Dat[k]; month := k; end; writeln(month); End.
| алг нач целтаб Dat[1:12] цел k, m, month Dat[1] := 2 Dat[2] := 8 Dat[3] := 6 Dat[4] := 3 Dat[5] := 8 Dat[6] := 2 Dat[7] := 3 Dat[8] := 7 Dat[9] := 4 Dat[10] := 4 Dat[11] := 8 Dat[12] := 7 m := Dat[1] month := 1 нц для k от 2 до 6 если Dat[k] > m то m := Dat[k] month := k все кц вывод month кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Dat[12] = {2, 8, 6, 3, 8, 2, 3, 7, 4, 4, 8, 7}; int m = Dat[0]; int month = 1; for (int k = 1; k < 7; k++) if (Dat[k] > m) { m = Dat[k]; month = k + 1; } cout << month; return 0; } | |
Ответ: