Вариант № 3078457
1. Задание 10 № 50
В таблице 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.
|
2. Задание 10 № 471
В таблице 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.
|
3. Задание 10 № 1164
В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык | Бейсик | Паскаль |
---|---|---|
алг
нач целтаб Dat[1:10] цел k, m
Dat[1] := 12
Dat[2] := 15
Dat[3] := 17
Dat[4] := 15
Dat[5] := 14
Dat[6] := 12
Dat[7] := 10
Dat[8] := 13
Dat[9] := 14
Dat[10] := 15
m := 20нц для k от 1 до 10 если Dat[k] < m то m := Dat[k] все кц вывод m кон |
DIM Dat(10) AS INTEGER
DIM k,m AS INTEGER Dat(1) = 12: Dat(2) = 15 Dat(3) = 17: Dat(4) = 15 Dat(5) = 14: Dat(6) = 12 Dat(7) = 10: Dat(8) = 13 Dat(9) = 14:Dat(10) = 15 m = 20 FOR k = 1 TO 10 IF Dat(k) < m THEN m = Dat(k) ENDIF NEXT k PRINT m |
Var k, m: integer;
Dat: array[1..10] of integer; Begin Dat[1] := 12; Dat[2] := 15; Dat[3] := 17; Dat[4] := 15; Dat[5] := 14; Dat[6] := 12; Dat[7] := 10; Dat[8] := 13; Dat[9] := 14; Dat[10] := 15; m := 20; for k := 1 to 10 do if Dat[k] < m then begin m := Dat[k] end; writeln(m); End. |
4. Задание 10 № 230
В таблице 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.
|
5. Задание 10 № 651
В таблице 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.
|
6. Задание 10 № 949
Садовник, работая в оранжерее ботанического сада, записывал в таблицу Flow количество видов растений, цветущих в текущем месяце. (Flow[1] — количество цветущих растений в январе, Flow[2] – в феврале и т. д.).
Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык | Бейсик | Паскаль |
---|---|---|
алг
нач целтаб Flow[1:12] цел k, m Flow[1] := 25; Flow[2] := 33 Flow[3] := 45; Flow[4] := 56 Flow[5] := 78; Flow[6] := 112 Flow[7] := 120;Flow[8] := 133 Flow[9] := 97; Flow[10] := 77 Flow[11] := 59;Flow[12] := 34 m := 35 нц для k от 1 до 12 если Flow[k] > 100 то m := m + 1 все кц вывод m кон |
DIM Flow(12) AS INTEGER
DIM k,m AS INTEGER Flow(1)= 25: Flow(2)= 33 Flow(3)= 45: Flow(4) = 56 Flow(5)= 78: Flow(6)= 112 Flow(7)= 120: Flow(8)= 133 Flow(9)= 97: Flow(10)= 77 Flow(11)= 59: Flow(12)= 34 m = 35 FOR k = 1 TO 12 IF Flow(k) > 100 THEN m = m + 1 END IF NEXT k PRINT m |
Var k, m: integer;
Flow: array[1..12] of integer; Begin Flow[1] := 25; Flow[2] := 33; Flow[3] := 45; Flow[4] := 56; Flow[5] := 78; Flow[6] := 112; Flow[7] := 120; Flow[8] := 133; Flow[9] := 97; Flow[10] := 77; Flow[11] := 59; Flow[12] := 34; m := 35; For k := 1 to 12 Do If Flow[k] > 100 Then Begin m := m + 1; End; Writeln(m); End. |
7. Задание 10 № 691
В таблице Ves хранятся данные о весе в килограммах по группе учащихся спортивной школы (Ves[1] — вес первого учащегося, Ves[2] — вес второго учащегося и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках:
Алгоритмический язык | Бейсик | Паскаль |
---|---|---|
алгнач
целтаб Ves [1:14] цел i, n
Ves[1]:= 25; Ves[2]:= 21;
Ves[3]:= 23; Ves[4]:= 28;
Ves[5]:= 30; Ves[6]:= 25;
Ves[7]:= 31; Ves[8]:= 28;
Ves[9]:= 25; Ves[10]:= 28;
Ves[11]:= 30; Ves[12]:= 27;
Ves[13]:= 26; Ves[14]:= 24;
n := 0нц для i от 1 до 14 если Ves[i] > 26 то n : = n + 1 все
КЦ
вывод n
КОН
|
DIS Ves(14) AS INTEGER
DIS i,n AS INTEGER
Ves(1)= 25: Ves(2)= 21
Ves(3)= 23: Ves(4)= 28
Ves(5)= 30: Ves(6)= 25
Ves(7)= 31: Ves(8)= 28
Ves(9)= 25: Ves(10)= 28
Ves(11)= 30: Ves(12)= 27
Ves(13)= 26: Ves(14)= 24
n = 0
FOR i = 1 TO 14
IF Ves(i) > 26 THEN
n : = n + 1
END IF
NEXT i
PRINT n
|
Var i, n: integer;
Ves: array[1..14] of integer;
Begin
Ves[1]:= 25; Ves[2]:= 21;
Ves[3]:= 23; Ves[4]:= 28;
Ves[5]:= 30; Ves[6]:= 25;
Ves[7]:= 31; Ves[8]:= 28;
Ves[9]:= 25; Ves[10]:= 28;
Ves[11]:= 30; Ves[12]:= 27;
Ves[13]:= 26; Ves[14]:= 24;
n := 0;
For i := 1 to 14 Do
If Ves[i] > 26 Then
Begin
n : = n + 1;
End;
Writeln(n);
End.
|
8. Задание 10 № 711
В таблице 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.
|
9. Задание 10 № 491
В таблице 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.
|
10. Задание 10 № 270
В таблице 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.
|
Комментариев нет:
Отправить комментарий