| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел s, n s:= 5 нц для n от 2 до 4 s:= s + (n-1) кц вывод s кон | DNM n, s AS INTEGER s = 5 FOR n = 2 TO 4 s = s + (n-1) NEXT n PRNNT s | Var s, n: integer; Begin s:= 5; For n:= 2 to 4 do s:= s + (n-1); Wrnteln(s); End. |
34. Задание 9 № 670. Запишите значение переменной y, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел s, n s:= 2 нц для n от 2 до 5 s:= s*2 + n кц вывод s кон | DNM n, s AS NNTEGER s = 2 FOR n = 2 TO 5 s = s*2 + n NEXT n PRNNT s | Var s, n: nnteger; Begnn s:= 2; For n:= 2 to 5 do s:= s*2 + n; Wrnteln(s); End. |
35. Задание 9 № 690. Запишите значение переменной y, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел s, n s:= 2 нц для n от 2 до 5 s:= s + n*2 кц вывод s кон | DNM n, s AS NNTEGER s = 2 FOR n = 2 TO 5 s = s + n*2 NEXT n PRNNT s | Var s, n: nnteger; Begin s:= 2; For n:= 2 to 5 do s:= s + n*2; Wrnteln(s); End. |
36. Задание 9 № 710. Запишите значение переменной s, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел s, k s:= 0 нц для k от 6 до 12 s:= s + 10 кц вывод s кон | DIM k, s AS INTEGER s = 0 FOR к = 6 TO 12 s = s + 10 NEXT k PRINT s | Var s,k: integer; Begin s:= 0; for k:= 6 to 12 do s:= s + 10; writeln(s); End. |
37. Задание 9 № 753. Запишите значение переменной s, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел d,n d:= 6 d:= d-2 нц для п от 1 до 4 d: = d + n кц вывод d кон | DIM n,d AS INTEGER d = 6 d = d-2 FOR n = 1 TO 4 d = d + n NEXT n PRINT d | Var d,n: integer; Begin d:= 6; d:= d-2; For n:= 1 to 4 do d: = d + n; Writeln(d); End. |
38. Задание 9 № 773. Запишите значение переменной d, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел d,n d:= 5 d:= d-3 нц для n от 1 до 4 d:= d + n кц вывод d кон | DIM n,d AS INTEGER d = 5 d = d-3 FOR n = 1 TO 4 d = d + n NEXT n PRINT d | Var d,n: integer; Begin d:= 5; d:= d-3; For n:= 1 to 4 do d:= d + n; Writeln(d); End. |
39. Задание 9 № 805. Запишите значение переменной f, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел f,n f:= 4 f:= f*3 нц для n от 1 до 4 f:= f + n кц вывод f кон | DIM n,f AS INTEGER f = 4 f = f*3 FOR n = 1 TO 4 f = f + n NEXT n PRINT f | Var f,n: integer; Begin f:= 4; f:= f*3; For n:= 1 to 4 do f:= f + n; Writeln(f); End. |
40. Задание 9 № 825. Запишите значение переменной f, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел f,n f:= 22 f:= f–20 нц для n от 1 до 5 f:= f + n кц вывод f кон | DIM n,f AS INTEGER f = 22 f = f–20 FOR n = 1 TO 5 f = f + n NEXT n PRINT f | Var f,n: integer; Begin f:= 22; f:= f–20; For n:= 1 to 5 do f:= f + n; Writeln(f); End. |
41. Задание 9 № 847. Запишите значение переменной s, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел n, s s:= 1 нц для n от 2 до 5 s:= s * 3 кц вывод s кон | DIM n, s AS INTEGER s = 1 FOR n = 2 TO 5 s = s * 3 NEXT n PRINT s END | var n, s: integer; begin s:= 1; for n:= 2 to 5 do s:= s * 3; write(s); end. |
42. Задание 9 № 867. Запишите значение переменной s, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел n, s s:= 0 нц для n от 3 до 7 s:= s + 2 * n кц вывод s кон | DIM n, s AS INTEGER s = 0 FOR n = 3 TO 7 s = s + 2 * n NEXT n PRINT s END | var n, s: integer; begin s:= 0; for n:= 3 to 7 do s:= s + 2 * n; write(s); end. |
43. Задание 9 № 888. Запишите значение переменной d, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел d,n,i n:=4 d:= n*2 нц для i от 1 до 3 d:= d + 2*i кц вывод d кон | DIM d,n,i AS INTEGER n = 4 d = n*2 FOR i = 1 TO 3 d = d + 2*i NEXT i PRINT d | Var d,n,i:integer; Begin n:= 4; d:= n*2; For i:= 1 to 3 do d:= d + 2*i; Writeln(d); End. |
44. Задание 9 № 908. Запишите значение переменной d, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел d,n,i n:=3 d:= n*3 нц для i от 1 до 3 d:= d + i кц вывод d кон | DIM d,n,i AS INTEGER n = 3 d = n*3 FOR i = 1 TO 3 d = d + i NEXT i PRINT d | Var d,n,i: integer; Begin n:= 3; d:= n*3; For i:= 1 to 3 do d:= d + i; Writeln(d); End. |
45. Задание 9 № 928. Запишите значение переменной t, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел t,i t:= 1 нц для i от 1 до 4 t:= t * i кц вывод t кон | DIM i,t AS INTEGER t = 1 FOR i = 1 TO 4 t = t * i NEXT i PRINT t | Var t,i: integer; Begin t:= 1; For i:= 1 to 4 do t:= t * i; Writeln(t); End. |
46. Задание 9 № 948. Запишите значение переменной t, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел t,i t:= 2 нц для i от 1 до 3 t:= t * i кц вывод t кон | DIM i,t AS INTEGER t = 2 FOR i = 1 TO 3 t = t * i NEXT i PRINT t | Var t,i: integer; Begin t:= 2; For i:= 1 to 3 do t:= t * i; Writeln(t); End. |
47. Задание 9 № 1020. Запишите значение переменной u, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел u,i u:= 30 нц для i от 1 до 6 u:= u – i кц вывод u кон | DIM i,u AS INTEGER u = 30 FOR i = 1 TO 6 u = u – i NEXT i PRINT u | Var u,i: integer; Begin u:= 30; For i:= 1 to 6 do u:= u – i; Writeln(u); End. |
48. Задание 9 № 1040. Запишите значение переменной u, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел u,i u:= 26 нц для i от 1 до 5 u:= u – i кц вывод u кон | DIM i,u AS INTEGER u = 26 FOR i = 1 TO 5 u = u – i NEXT i PRINT u | Var u,i: integer; Begin u:= 26; For i:= 1 to 5 do u:= u – i; Writeln(u); End. |
49. Задание 9 № 1060. Определите, что будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел s, k s:=0 нц для k от 3 до 10 s:=s+13 кц вывод s кон | DIM s,k AS INTEGER s = 0 FOR k = 3 TO 10 s= s+13 NEXT k PRINT s END | Var u,i: integer; Var s, k: integer; Begin s:=0; for k:=3 to 10 do s:=s+13; write(s); End. |
50. Задание 9 № 1080. Определите, что будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел s, k s:= 8, нц для k от 14 до 18 s:= s+6 кц вывод s кон | DIM k, s AS INTEGER s = 8 FOR k = 14 TO 18 s = s+6 NEXT k PRINT s | Var s,k: integer; Begin s:= 8; for k:= 14 to 18 do s:= s+6; writeln(s); End. |
51. Задание 9 № 1103. Запишите значение переменной s, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел s, k s:= 0 нц для k от 4 до 9 s:= s + 12 кц вывод s кон | DIM k, s AS INTEGER s = 0 FOR k = 4 TO 9 s = s + 12 NEXT k PRINT s | Var s,k: integer; Begin s:= 0; for k:= 4 to 9 do s:= s + 12; writeln(s); End. |
52. Задание 9 № 1123. Запишите значение переменной s, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел s, k s:= 0 нц для k от 2 до 12 s:= s + 11 кц вывод s кон | DIM k, s AS INTEGER s = 0 FOR k = 2 TO 12 s = s + 11 NEXT k PRINT s | Var s,k: integer; Begin s:= 0; for k:= 2 to 12 do s:= s + 11; writeln(s); End. |
53. Задание 9 № 1143. Запишите значение переменной s, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел s,k s:=100 нц для k от 0 до 10 s:=s-5 кц вывод s кон | DIM s AS INTEGER DIM k AS INTEGER s = 100 FOR k = 0 TO 10 s = s – 5 NEXT k PRINT s END | var s, k:integer; begin s:= 100; for k:= 0 to 10 do s:= s - 5; writeln (s); end. |
54. Задание 9 № 1163. Запишите значение переменной s, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
| Алгоритмический язык | Бейсик | Паскаль |
| алг нач цел s, k s:= 0 нц для k от 14 до 18 s:= s+7 кц вывод s кон | DIM k, s AS INTEGER s = 0 FOR k = 14 TO 18 s = s+7 NEXT k PRINT s | Var s,k: integer; Begin s:= 0; for k:= 14 to 18 do s:= s+7; writeln(s); End. |
Задания 10. Циклический алгоритм обработки массива чисел, записанный на алгоритмическом языке
1. Задание 10 № 10. В таблице 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. Задание 10 № 30. В таблице 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. Задание 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. |
4. Задание 10 № 70. В таблице 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. Задание 10 № 90. В таблице 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. Задание 10 № 110. В таблице 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. Задание 10 № 130. В таблице 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. Задание 10 № 150. В таблице 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. Задание 10 № 170. В таблице 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. Задание 10 № 190. В таблице 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. Задание 10 № 210. В таблице 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. Задание 10 № 230. В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.