- •Варианты
- •Условия заданий записывать, что бы я не иска в тексте при провеке (очень много стариц)!!! Задание 1
- •Пушкин — это наше всё!
- •Задание 3
- •Задание 4
- •Задание 5
- •Задание 6
- •Задание 7
- •Задание 8.
- •Задание 9
- •Задание 10
- •Задание 11
- •Задание 12
- •1. Вычти 3
- •2. Возведи в квадрат
- •1. Вычти 1
- •2. Возведи в квадрат
- •1. Прибавь 1
- •2. Возведи в квадрат
- •1. Прибавь 3
- •2. Возведи в квадрат
- •1. Вычти 1
- •2. Возведи в квадрат
- •1. Прибавь 1
- •2. Возведи в квадрат
- •1. Прибавь 3
- •2. Возведи в квадрат
- •2. Вычти 1
- •2. Вычти 3
- •2. Прибавь 1
- •2. Вычти 1
- •2. Вычти 3
- •2. Прибавь 1
- •2. Вычти 1
- •2. Вычти 3
- •2. Прибавь 1
- •1. Возведи в квадрат
- •2. Прибавь 1
- •1. Умножь на 3
- •2. Вычти 2
- •1. Вычти 3
- •2. Умножь на 2
- •1. Зачеркни справа
- •2. Возведи в квадрат 2
- •1. Зачеркни справа
- •2. Возведи в квадрат
- •1. Зачеркни слева
- •2. Возведи в квадрат
- •1. Зачеркни слева
- •2. Возведи в квадрат
- •1. Вычти 4
- •2. Возведи в квадрат
- •1. Вычти 4
- •2. Возведи в квадрат
- •1. Умножь на 3
- •2. Вычти 5
- •1. Умножь на 3
- •2. Вычти 5
- •1. Умножь на 2
- •2. Прибавь 3
- •1. Умножь на 2
- •2. Прибавь 3
- •1. Умножь на 3
- •2. Прибавь 1
- •1. Умножь на 3
- •2. Прибавь 2
- •1. Возведи в квадрат
- •2. Прибавь 2
- •1. Возведи в квадрат
- •2. Прибавь 2
- •1. Возведи в квадрат
- •2. Прибавь 3
- •1. Возведи в квадрат
- •2. Прибавь 1
- •Задание 13
- •Задание 14, Задание 15
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Вверх вниз влево вправо
- •Сверху свободно снизу свободно слева свободно справа свободно
- •Задние 16
Задание 9
1. В таблице 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. |
2. В таблице 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[к] > m то m : = Dat[к] все КЦ вывод 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) > 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 := 0; for k := 1 to 10 do if Dat[k] > m then begin m := Dat[k] end; writeln(m); End. |
3. В таблице 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 := 20 нц для к от 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. |
4. В таблице 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[к] > 12 то 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) > 12 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] > 12 then begin m := m + 1 end; writeln(m); End. |
5. В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык |
Бейсик |
Паскаль |
алг нач целтаб Dat[1:10] цел к, m Dat[1] := 2 Dat[2] := 5 Dat[3] := 8 Dat[4] := 5 Dat[5] := 4 Dat[6] := 2 Dat[7] := 0 Dat[8] := 3 Dat[9] := 4 Dat[10] := 5 m := 0 нц для к от 1 до 10 если Dat[к] > m то m : = Dat[к] все КЦ вывод m КОН |
DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 2: Dat(2) = 5 Dat(3) = 8: Dat(4) = 5 Dat(5) = 4: Dat(6) = 2 Dat(7) = 0: Dat(8) = 3 Dat(9) = 4: Dat(10) = 5 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] := 2; Dat[2] := 5; Dat[3] := 8; Dat[4] := 5; Dat[5] := 4; Dat[6] := 2; Dat[7] := 0; Dat[8] := 3; Dat[9] := 4; Dat[10] := 5; m := 0; for k := 1 to 10 do if Dat[k] > m then begin m := Dat[k] end; writeln(m); End. |
6. В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык |
Бейсик |
Паскаль |
алг нач целтаб Dat[1:10] цел к, m Dat[1] := 2 Dat[2] := 5 Dat[3] := 7 Dat[4] := 5 Dat[5] := 4 Dat[6] := 2 Dat[7] := 0 Dat[8] := 3 Dat[9] := 4 Dat[10] := 5 m := 10 нц для к от 1 до 10 если Dat[к] < m то m : = Dat[к] все КЦ вывод m КОН |
DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 2: Dat(2) = 5 Dat(3) = 7: Dat(4) = 5 Dat(5) = 4: Dat(6) = 2 Dat(7) = 0: Dat(8) = 3 Dat(9) = 4: Dat(10) = 5 m = 10 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] := 2; Dat[2] := 5; Dat[3] := 7; Dat[4] := 5; Dat[5] := 4; Dat[6] := 2; Dat[7] := 0; Dat[8] := 3; Dat[9] := 4; Dat[10] := 5; m := 10; for k := 1 to 10 do if Dat [ k] < m then begin m := Dat[k] end; writeln(m); End. |
7. В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык |
Бейсик |
Паскаль |
алг нач целтаб Dat[1:10] цел к, m Dat[1] := 2 Dat[2] := 5 Dat[3] := 7 Dat[4] := 5 Dat[5] := 4 Dat[6] := 2 Dat[7] := 0 Dat[8] := 2 Dat[9] := 4 Dat[10] := 5 m := 0 нц для к от 1 до 10 если Dat[к] > 3 то m : = m+1 все КЦ вывод m КОН |
DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 2: Dat(2) = 5 Dat(3) = 7: Dat(4) = 5 Dat(5) = 4: Dat(6) = 2 Dat(7) = 0: Dat(8) = 2 Dat(9) = 4: Dat(10) = 5 m = 0 FOR k := 1 TO 10 IF Dat(k) > 3 THEN m =m+1 ENDIF NEXT k PRINT m |
Var k, m: integer; Dat: array[1...10] of integer; Begin Dat[1] := 2; Dat[2] := 5; Dat[3] := 7; Dat[4] := 5; Dat[5] := 4; Dat[6] := 2; Dat[7] := 0; Dat[8] := 2; Dat[9] := 4; Dat[10] := 5; m := 0; for k := 1 to 10 do if Dat[k] > 3 then begin m := m+1 end; writeln(m); End. |
8. В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык |
Бейсик |
Паскаль |
алг нач целтаб Dat[1:10] цел к, 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 нц для к от 1 до 10 если Dat[к] > 25 то m : = m+1 все КЦ вывод m КОН |
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 |
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. |
9. В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык |
Бейсик |
Паскаль |
алг нач целтаб Dat[1:10] цел к, 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 нц для к от 1 до 10 если Dat[к] < 35 то m : = m+1 все КЦ вывод m КОН |
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) < 35 THEN m =m+1 ENDIF NEXT 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 := 0; for k := 1 to 10 do if Dat[k] < 35 then begin m := m+1 end; writeln(m); End. |
10. В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык |
Бейсик |
Паскаль |
алг нач целтаб Dat[1:10] цел к, 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 нц для к от 1 до 10 если Dat[к] < m то m : = Dat[к] все КЦ вывод m КОН |
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 |
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. |
11. В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык |
Бейсик |
Паскаль |
алг нач целтаб Dat[1:10] цел к, 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 нц для к от 1 до 10 если Dat[к] > m то m : = Dat[к] все КЦ вывод m КОН |
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) > m THEN m =Dat(k) ENDIF NEXT 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 := 0; for k := 1 to 10 do if Dat[k] > m then begin m := Dat[k] end; writeln(m); End. |
12. В таблице 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. |
13. В таблице 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. |
14. В таблице 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[к] > 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) = 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. |
15. В таблице 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. |
16. В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] — количество учеников в первом классе, Dat[2] — во втором и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык |
Бейсик |
Паскаль |
алг нач целтаб Dat[1:11] цел к, m Dat[1] := 20 Dat[2] := 27 Dat[3] := 19 Dat[4] := 28 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[к] < 25 то m : = Dat[к] все КЦ вывод m КОН |
DIM Dat(11) AS INTEGER DIM k,m AS INTEGER Dat[1] = 20 Dat[2] = 27 Dat[3] = 19 Dat[4] = 28 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 =Dat[ k] ENDIF NEXT k PRINT m |
Var k, m: integer; Dat: array[1..11] of integer; Begin Dat[1] := 20; Dat[2] := 27; Dat[3] := 19; Dat[4] := 28; 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 := Dat[k]; end; writeln(m); End. |
17. В таблице 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. |
18. В таблице Dat хранятся оценки (по десятибалльной шкале) студента по программированию за 8 прошедших с начала учёбы семестров (Dat[1] — оценка за первый семестр, Dat[2] — за второй и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
Алгоритмический язык |
Бейсик |
Паскаль |
алг нач целтаб Dat[1:10] цел к, 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 term:=1 m := Dat[1] нц для к от 2 до 8 если Dat[к] < m то m:= Dat[k] term := k все КЦ вывод term КОН |
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 term:=1 m := Dat(1) FOR k := 2 TO 8 IF Dat(k) < m THEN m =Dat(k) term = k ENDIF NEXT k PRINT term END |
Var k, m, term: integer; Dat: array[1...10] 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; term:=1 m := Dat[1]; for k := 2 to 8 do if Dat[k] < m then begin m:= Dat[k]; term := k; end; writeln(term); End. |
19. В таблице 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. |
20. В таблице Dat хранятся данные о количестве краткосрочных командировок, в которые приходилось ездить сотруднику за последний год (Dat[1] — количество командировок в январе, Dat[2] — количество командировок в феврале и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
Алгоритмический язык |
Бейсик |
Паскаль |
алг нач целтаб Dat[1:12] цел к, 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 month:=1; m := Dat[1] нц для к от 2 до 12 если Dat[к] <= m то m:= Dat[k]; month := k все КЦ вывод month КОН |
DIM Dat(12) 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 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] := 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; 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. |
21. В таблице 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. |
22. В таблице Dat хранятся данные о количестве детских праздников, которые проводило кафе за последний год (Dat[1] — количество детских праздников в январе, Dat[2] — количество праздников в феврале и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
Алгоритмический язык |
Бейсик |
Паскаль |
алг нач целтаб Dat[1:12] цел к, 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 month:=1; m := Dat[1] нц для к от 2 до 6 если Dat[к] > m то m:= Dat[k] month := k все КЦ вывод month КОН |
DIM Dat(12) 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 month = 1: m = Dat(1) FOR k = 2 TO 6 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] := 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 month:=1; m := Dat[1]; for k := 2 to 6 do if Dat[k] > m then begin m:= Dat[k]; month := k; end; write(month); End. |
23. В таблице Dat хранятся данные о количестве детских праздников, которые проводило кафе за последний год (Dat[1] — количество детских праздников в январе, Dat[2] — количество праздников в феврале и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
Алгоритмический язык |
Бейсик |
Паскаль |
алг нач целтаб Dat[1:12] цел к, 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] := 8 Dat[10] := 3 Dat[11] := 8 Dat[12] := 7 month:=1; m := Dat[1] нц для к от 8 до 12 если Dat[к] > m то m:= Dat[k] month := k все КЦ вывод month КОН |
DIM Dat(12) 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] = 8 Dat[10] = 3 Dat[11] = 8 Dat[12] = 7 month = 1: m = Dat(1) FOR k = 8 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] := 8 Dat[3] := 6 Dat[4] := 3 Dat[5] := 8 Dat[6] := 2 Dat[7] := 3 Dat[8] := 7 Dat[9] := 8 Dat[10] := 3 Dat[11] := 8 Dat[12] := 7 month:=1; m := Dat[1]; for k := 8 to 12 do if Dat[k] > m then begin m:= Dat[k]; month := k; end; write(month); End. |
24. В таблице Dat хранятся данные о количестве поездов, отправляющихся с центрального вокзала города на юг в первой декаде июля (Dat[1] — количество поездов первого числа, Dat[2] — количество поездов второго числа и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
Алгоритмический язык |
Бейсик |
Паскаль |
алг нач целтаб 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 day:=1; m := Dat[1] нц для k от 2 до 10 если Dat[к] > m то m:= Dat[k] day := k все КЦ вывод day КОН |
DIM Dat(10) 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 day = 1: m = Dat(1) FOR k = 2 TO 10 IF Dat(k) > m THEN m = Dat(k) day = k END IF NEXT k PRINT day END |
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; day:=1; m := Dat[1]; for k := 2 to 10 do if Dat[k] > m then begin m:= Dat[k]; day := k; end; write(day); End. |
25. В таблице Dat хранятся данные о количестве поездов, отправляющихся с центрального вокзала города на юг в первой декаде июля (Dat[1] — количество поездов первого числа, Dat[2] — количество поездов второго числа и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
Алгоритмический язык |
Бейсик |
Паскаль |
алг нач целтаб Dat[1:10] цел k, m, day Dat[1] := 6 Dat[2] := 2 Dat[3] := 5 Dat[4] := 3 Dat[5] := 4 Dat[6] := 4 Dat[7] := 3 Dat[8] := 5 Dat[9] := 2 Dat[10] := 6 day:=1; m := Dat[1] нц для k от 2 до 10 если Dat[к] < m то m:= Dat[k] day := k все КЦ вывод day КОН |
DIM Dat(10) AS INTEGER Dat[1] = 6 Dat[2] = 2 Dat[3] = 5 Dat[4] = 3 Dat[5] = 4 Dat[6] = 4 Dat[7] = 3 Dat[8] = 5 Dat[9] = 2 Dat[10] = 6 day = 1: m = Dat(1) FOR k = 2 TO 10 IF Dat(k) < m THEN m = Dat(k) day = k END IF NEXT k PRINT day END |
Var k, m, day: integer; Dat: array[1...10] of integer; Begin Dat[1] := 6; Dat[2] := 2; Dat[3] := 5; Dat[4] := 3; Dat[5] := 4; Dat[6] := 4; Dat[7] := 3; Dat[8] := 5; Dat[9] := 2; Dat[10] := 6; day:=1; m := Dat[1]; for k := 2 to 10 do if Dat[k] < m then begin m:= Dat[k]; day := k; end; write(day); End. |
26. В таблице Dat хранятся данные о количестве самолётов, отправляющихся из аэропорта города на юг в первой декаде августа (Dat[1] — количество самолётов первого числа, Dat[2] — количество самолётов второго числа и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
Алгоритмический язык |
Бейсик |
Паскаль |
алг нач целтаб 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 day:=1; m := Dat[1] нц для k от 2 до 10 если Dat[k] >= m то m:= Dat[k] day := k все КЦ вывод day КОН |
DIM Dat(10) 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 day = 1: m = Dat(1) FOR k = 2 TO 10 IF Dat(k) >= m THEN m = Dat(k) day = k END IF NEXT k PRINT day END |
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; day:=1; m := Dat[1]; for k := 2 to 10 do if Dat[k] >= m then begin m:= Dat[k]; day := k; end; write(day); End. |
27. В таблице Dat хранятся данные о количестве самолётов, отправляющихся из аэропорта города на юг в первой декаде августа (Dat[1] — количество самолётов первого числа, Dat[2] — количество самолётов второго числа и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
Алгоритмический язык |
Бейсик |
Паскаль |
алг нач целтаб 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 day:=1; m := Dat[1] нц для k от 2 до 10 если Dat[к] =< m то m:= Dat[k] day := k все КЦ вывод day КОН |
DIM Dat(10) 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 day = 1: m = Dat(1) FOR k = 2 TO 10 IF Dat(k) =< m THEN m = Dat(k) day = k END IF NEXT k PRINT day END |
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; day:=1; m := Dat[1]; for k := 2 to 10 do if Dat[k] =< m then begin m:= Dat[k]; day := k; end; write(day); End. |
28. В таблице 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] < 7 то 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) < 7 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] < 7 Then Begin m := m + 1; End; Writeln(m); End. |
29. В таблице 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. |
30. В таблице Tur хранятся данные о количестве ребят, ходивших в поход вместе с туристическим клубом «Полянка». (Tur[1] — число ребят в 2001 году, Tur[2] — в 2002 году и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования:
Алгоритмический язык |
Бейсик |
Паскаль |
алг нач целтаб Tur [1:11] цел к, 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 нц для к от 1 до 11 если Tur[k] < 10 то m : = m+Tur[k] все КЦ вывод m КОН |
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) < 10 THEN m : = m+Tur(k) END IF NEXT 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] < 10 Then Begin m := m + Tur[k]; End; Writeln(m); End. |
31. В таблице Tur хранятся данные о количестве ребят, ходивших в поход вместе с туристическим клубом «Полянка». (Tur[1] — число ребят в 2001 году, Tur[2] — в 2002 году и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования:
Алгоритмический язык |
Бейсик |
Паскаль |
алг нач целтаб Tur [1:111] цел 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 нц для к от 1 до 11 если Tur[k] > 12 то m : = m+Tur[k] все КЦ вывод m КОН |
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) END IF NEXT 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. |
32. В таблице 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. |
33. В таблице Sea хранятся данные о количестве россиян, отдыхавших на Чёрном море (Sea[1] — число россиян в 2001 году, Sea[2] — в 2002 и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования:
Алгоритмический язык |
Бейсик |
Паскаль |
алг нач целтаб 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 нц для к от 1 до 12 если Sea[k] > 220 то s : = s+Sea[k] все КЦ вывод s КОН |
DIS Sea(11) AS INTEGER DIS 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) END IF NEXT 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. |
34. В таблице 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. |
35. В таблице 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 нц для к от 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. |
36. В таблице Dat хранятся данные о количестве учеников в классах (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.
|