Вариант № 2824976

При вы­пол­не­нии за­да­ний с крат­ким от­ве­том впи­ши­те в поле для от­ве­та цифру, ко­то­рая со­от­вет­ству­ет но­ме­ру пра­виль­но­го от­ве­та, или число, слово, по­сле­до­ва­тель­ность букв (слов) или цифр. Ответ сле­ду­ет за­пи­сы­вать без про­бе­лов и каких-либо до­пол­ни­тель­ных сим­во­лов. Дроб­ную часть от­де­ляй­те от целой де­ся­тич­ной за­пя­той. Еди­ни­цы из­ме­ре­ний пи­сать не нужно.


Если ва­ри­ант задан учи­те­лем, вы мо­же­те впи­сать или за­гру­зить в си­сте­му от­ве­ты к за­да­ни­ям с раз­вер­ну­тым от­ве­том. Учи­тель уви­дит ре­зуль­та­ты вы­пол­не­ния за­да­ний с крат­ким от­ве­том и смо­жет оце­нить за­гру­жен­ные от­ве­ты к за­да­ни­ям с раз­вер­ну­тым от­ве­том. Вы­став­лен­ные учи­те­лем баллы отоб­ра­зят­ся в вашей ста­ти­сти­ке.




Версия для печати и копирования в MS Word
Вариант составлен по шаблону 2824976.
1
Тип Д9 № 868
i

В таб­ли­це Dat хра­нят­ся от­мет­ки уча­щих­ся 9 клас­са за са­мо­сто­я­тель­ную ра­бо­ту (Dat[1] – от­мет­ка пер­во­го уча­ще­го­ся, Dat[2] – вто­ро­го и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ве­ден на пяти язы­ках про­грам­ми­ро­ва­ния.

Бей­сикPython

DIM Dat(10) AS INTEGER

DIM k,m AS INTEGER

Dat(1) = 4: Dat(2) = 5

Dat(3) = 4: Dat(4) = 3

Dat(5) = 2: Dat(6) = 3

Dat(7) = 4: Dat(8) = 5

Dat(9) = 5: Dat(10) = 3

m = 0

FOR k = 1 TO 10

IF Dat(k) < 4 THEN

m = m + Dat(k)

ENDIF

NEXT k

PRINT m

Dat = [4, 5, 4, 3, 2, 3, 4, 5, 5, 3]

m = 0

for k in range (10):

    if Dat[k] < 4:

        m = m + Dat[k]

print (m)

Пас­кальАл­го­рит­ми­че­ский язык

Var k, m: integer;

Dat: array[1..10] of integer;

Begin

   Dat[1] := 4; Dat[2] := 5;

   Dat[3] := 4; Dat[4] := 3;

   Dat[5] := 2; Dat[6] := 3;

   Dat[7] := 4; Dat[8] := 5;

   Dat[9]:=5; Dat[10]:=3;

   m := 0;

   for k := 1 to 10 do

     if Dat[k] < 4 then

      begin

        m := m + Dat[k];

      end;

   writeln(m);

End.

  алг

нач

   цел­таб Dat[1:10]

   цел k, m

   Dat[1] := 4

   Dat[2] := 5

   Dat[3] := 4

   Dat[4] := 3

   Dat[5] := 2

   Dat[6] := 3

   Dat[7] := 4

   Dat[8] := 5

   Dat[9] := 5

   Dat[10] := 3

   m := 0

   нц для k от 1 до 10

      если Dat[k] < 4 то

         m := m + Dat[k]

      все

   кц

   вывод m

кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[10] = {4, 5, 4, 3, 2, 3, 4, 5, 5, 3};

    int m = 0;

    for (int k = 0; k < 10; k++)

        if (Dat[k] < 4) m = m + Dat[k];

    cout << m;

    return 0;

}


Ответ:
2
Тип Д9 № 351
i

В таб­ли­це Dat хра­нят­ся оцен­ки (по де­ся­ти­балль­ной шкале) сту­ден­та по про­грам­ми­ро­ва­нию за 8 про­шед­ших с на­ча­ла учебы се­мест­ров (Dat[1]  — оцен­ка за пер­вый се­местр, Dat[2]  — за вто­рой и т. д.). Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го ал­го­рит­ма, за­пи­сан­но­го на пяти ал­го­рит­ми­че­ских язы­ках.

Бей­сикPython

DIM Dat(8) AS INTEGER

DIM k, m, term AS INTEGER

Dat(1) = 7: Dat(2) = 7

Dat(3) = 6: Dat(4) = 8

Dat(5) = 4: Dat(6) = 5

Dat(7) = 4: Dat(8) = 7

m = Dat(1); term = 1

FOR k = 2 TO 8

IF Dat(k) < m THEN

m = Dat(k)

term = k

ENDIF

NEXT k

PRINT term

Dat = [7, 7, 6, 8, 4, 5, 4, 7]

m = Dat[0]

term = 1

for k in range(1, 8):

    if Dat[k] < m:

        m = Dat[k]

        term = k + 1

print (term)

Пас­кальАл­го­рит­ми­че­ский язык

Var k, m, term: integer;

Dat: array[1..8] of integer;

Begin

   Dat[1] := 7; Dat[2] := 7;

   Dat[3] := 6; Dat[4] := 8;

   Dat[5] := 4; Dat[6] := 5;

   Dat[7] := 4; Dat[8] := 7;

   m := Dat[1];

   term := 1;

   for k := 2 to 8 do

     if Dat[k] < m then

      begin

        m := Dat[k];

        term := k;

      end;

   writeln(term);

End.

   алг

   нач

   цел­таб Dat[1:8]

   цел k, m, term

   Dat[1] := 7

   Dat[2] := 7

   Dat[3] := 6

   Dat[4] := 8

   Dat[5] := 4

   Dat[6] := 5

   Dat[7] := 4

   Dat[8] := 7

   m := Dat[1]

   term := 1

   нц для k от 2 до 8

      если Dat[k] < m то

         m := Dat[k]

         term := k

      все

   кц

   вывод term

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[8] = {7, 7, 6, 8, 4, 5, 4, 7};

    int m = Dat[0];

    int term = 1;

    for (int k = 1; k < 8; k++){

        if (Dat[k] < m) {

            m = Dat[k];

            term = k + 1;

        }

    }

    cout << term;

    return 0;

}


Ответ:
3
Тип Д9 № 70
i

В таб­ли­це 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;

}


Ответ:
4
Тип Д9 № 1164
i

В таб­ли­це 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;

}


Ответ:
5
Тип Д9 № 631
i

В таб­ли­це Ani хра­нят­ся дан­ные о чис­лен­но­сти обе­зьян в зоо­пар­ке го­ро­да Тулы (Ani[1]  — число обе­зьян в 2001 году, Ani[2]  — в 2002 и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ве­ден на пяти язы­ках про­грам­ми­ро­ва­ния:

Бей­сикPython

DIM Ani(12) 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)

ENDIF

NEXT k

PRINT m

Ani = [17, 17, 19, 21, 23, 22, 24, 16, 19, 21, 17, 17]

m = 0

for k in range(12):

    if Ani[k] == 17:

        m = m + Ani[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.

   алг

   нач

   цел­таб 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

   нц для k от 1 до 12

      если Ani[k] = 17 то

         m := m + Ani[k]

      все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Ani[12] = {17, 17, 19, 21, 23, 22, 24, 16, 19, 21, 17, 17};

    int m = 0;

    for (int k = 0; k < 12; k++)

        if (Ani[k] == 17) m = m + Ani[k];

    cout << m;

    return 0;

}


Ответ:
6
Тип Д9 № 774
i

Школь­ник делал ла­бо­ра­тор­ную ра­бо­ту по фи­зи­ке, в ходе ко­то­рой из­ме­рил 10 раз силу тока и за­пи­сал по­ка­за­ния ам­пер­мет­ра в таб­ли­цу Tok (Tok[1]  — ре­зуль­тат пер­во­го из­ме­ре­ния, Tok[2]  — вто­ро­го и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ве­ден на пяти язы­ках про­грам­ми­ро­ва­ния.

Бей­сикPython

DIM Tok(10) AS INTEGER

DIM k,m AS INTEGER

Tok(1) = 10: Tok(2) = 14

Tok(3) = 15: Tok(4) = 4

Tok(5) = 12: Tok(6) = 6

Tok(7) = 3: Tok(8) = 5

Tok(9) = 5: Tok(10) = 10

m = 0

FOR k = 1 TO 10

IF Tok(k) > 6 THEN

m = m + 2

ENDIF

NEXT k

PRINT m

Tok = [10, 14, 15, 4, 12, 6, 3, 5, 5, 10]

m = 0

for k in range (10):

    if Tok[k] > 6:

        m = m + 2

print (m)

Пас­кальАл­го­рит­ми­че­ский язык

Var k, m: integer;

Tok: array[1..10] of integer;

Begin

   Tok[1] := 10; Tok[2] := 14;

   Tok[3] := 15; Tok[4] := 4;

   Tok[5] := 12; Tok[6] := 6;

   Tok[7] := 3; Tok[8] := 5;

   Tok[9] := 5; Tok[10] := 10;

   m := 0;

   for k := 1 to 10 do

     if Tok[k] > 6 then

      begin

        m := m + 2;

      end;

   writeln(m);

End.

  алг

нач

   цел­таб Tok[1:10]

   цел k, m

   Tok[1] := 10

   Tok[2] := 14

   Tok[3] := 15

   Tok[4] := 4

   Tok[5] := 12

   Tok[6] := 6

   Tok[7] := 3

   Tok[8] := 5

   Tok[9] := 5

   Tok[10] := 10

   m := 0

   нц для k от 1 до 10

      если Tok[k] > 6 то

         m := m + 2

      все

   кц

   вывод m

кон

С++

#include <iostream>

using namespace std;

int main() {

    int Tok[10] = {10, 14, 15, 4, 12, 6, 3, 5, 5, 10};

    int m = 0;

    for (int k = 0; k < 10; k++)

        if (Tok[k] > 6) m = m + 2;

    cout << m;

    return 0;

}


Ответ:
7
Тип Д9 № 270
i

В таб­ли­це Dat пред­став­ле­ны дан­ные о ко­ли­че­стве го­ло­сов, по­дан­ных за 10 ис­пол­ни­те­лей на­род­ных песен (Dat[1]  — ко­ли­че­ство го­ло­сов, по­дан­ных за пер­во­го ис­пол­ни­те­ля, Dat[2]  — за вто­ро­го и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ве­ден на пяти язы­ках про­грам­ми­ро­ва­ния.

Бей­сикPython

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

Dat = [16, 20, 20, 41, 14, 21, 28, 12, 15, 35]

m = 0

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] := 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.

   алг

   нач

   цел­таб 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

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[10] = {16, 20, 20, 41, 14, 21, 28, 12, 15, 35};

    int m = 0;

    for (int k = 0; k < 10; k++)

        if (Dat[k] > m) m = Dat[k];

    cout << m;

    return 0;

}


Ответ:
8
Тип Д9 № 4747
i

В таб­ли­це Dat хра­нят­ся дан­ные из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за не­де­лю в гра­ду­сах (Dat[1]  — дан­ные за по­не­дель­ник, Dat[2]  — за втор­ник и т. д.). Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ве­ден на пяти язы­ках про­грам­ми­ро­ва­ния.

Бей­сикPython

DIM Dat(7) AS INTEGER

DIM k, m AS INTEGER

Dat(1) = −2: Dat(2) = −1

Dat(3) = 2: Dat(4) = 4

Dat(5) = 0: Dat(6) = −1

Dat(7) = −4

m = 0

FOR k = 1 TO 7

IF Dat(k) < 0 THEN

m = m + 1

ENDIF

NEXT k

PRINT m

Dat = [−2, −1, 2, 4, 0, −1, −4]

m = 0

for k in range(7):

    if Dat[k] < 0:

        m = m + 1

print (m)

Пас­кальАл­го­рит­ми­че­ский язык

Var k, m: integer;

Dat: array[1..7] of integer;

Begin

   Dat[1] := −2; Dat[2] := −1;

   Dat[3] := 2; Dat[4] := 4;

   Dat[5] := 0; Dat[6] := −1;

   Dat[7] := −4;

   m := 0;

   for k := 1 to 7 do

     if Dat[k] < 0 then

      begin

        m := m + 1;

      end;

   writeln(m);

End.

   алг

   нач

   цел­таб Dat[1:7]

   цел k, m

   Dat[1] := −2

   Dat[2] := −1

   Dat[3] := 2

   Dat[4] := 4

   Dat[5] := 0

   Dat[6] := −1

   Dat[7] := −4

   m := 0

   нц для k от 1 до 7

      если Dat[k] < 0 то

         m := m + 1

      все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[7] = {−2, −1, 2, 4, 0, −1, −4};

    int m = 0;

    for (int k = 0; k < 7; k++)

        if (Dat[k] < 0) m = m + 1;

    cout << m;

    return 0;

}


Ответ:
9
Тип Д9 № 310
i

В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве уче­ни­ков в клас­сах (Dat[1]  — ко­ли­че­ство уче­ни­ков в пер­вом клас­се, Dat[2]  — во вто­ром и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ве­ден на пяти язы­ках про­грам­ми­ро­ва­ния.

Бей­сикPython

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

Dat = [20, 27, 19, 28, 26, 22, 24, 28, 26, 21, 27]

m = 0

for k in range(11):

    if Dat[k] < 25:

        m = Dat[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.

   алг

   нач

   цел­таб Dat[1:11]

   цел k, 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

   нц для k от 1 до 11

      если Dat[k] < 25 то

         m := Dat[k]

      все

   кц

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[11] = {20, 27, 19, 28, 26, 22, 24, 28, 26, 21, 27};

    int m = 0;

    for (int k = 0; k < 11; k++)

        if (Dat[k] < 25) {

            m = Dat[k];

        }

    cout << m;

    return 0;

}


Ответ:
10
Тип Д9 № 170
i

В таб­ли­це 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) < 35 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] < 35:

        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] < 35 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] < 35 то

         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] < 35) m = m + 1;

    cout << m;

    return 0;

}


Ответ:
11
Тип Д9 № 889
i

Со­труд­ник ме­те­о­бю­ро в ходе из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за­пи­сы­вал по­ка­за­ния тер­мо­мет­ра в таб­ли­цу 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 = 15

FOR k = 1 TO 12

IF Tem(k) < 20 THEN

b = b + 1

ENDIF

NEXT k

PRINT b

Tem = [22, 25, 20, 18, 16, 14, 20, 23, 17, 19, 20, 21]

b = 15

for k in range (12):

    if Tem[k] < 20:

        b = b + 1

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 := 15;

   for k := 1 to 12 do

     if Tem[k] < 20 then

      begin

        b := b + 1;

      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 := 15

   нц для k от 1 до 12

      если Tem[k] < 20 то

         b := b + 1

      все

   кц

   вывод 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 = 15;

    for (int k = 0; k < 12; k++)

        if (Tem[k] < 20) b = b + 1;

    cout << b;

    return 0;

}


Ответ:
12
Тип Д9 № 848
i

В таб­ли­це Dat хра­нят­ся от­мет­ки уча­щих­ся 9 клас­са за са­мо­сто­я­тель­ную ра­бо­ту (Dat[1]  — от­мет­ка пер­во­го уча­ще­го­ся, Dat[2]  — вто­ро­го и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ве­ден на пяти язы­ках про­грам­ми­ро­ва­ния.

Бей­сикPython

DIM Dat(10) AS INTEGER

DIM k,m AS INTEGER

Dat(1) = 4: Dat(2) = 5

Dat(3) = 4: Dat(4) = 3

Dat(5) = 2: Dat(6) = 3

Dat(7) = 4: Dat(8) = 5

Dat(9) = 5: Dat(10) = 3

m = 0

FOR k = 1 TO 10

IF Dat(k) > 3 THEN

m = m + 1

ENDIF

NEXT k

PRINT m

Dat = [4, 5, 4, 3, 2, 3, 4, 5, 5, 3]

m = 0

for k in range (10):

    if Dat[k] > 3:

        m = m + 1

print (m)

Пас­кальАл­го­рит­ми­че­ский язык

Var k, m: integer;

Dat: array[1..10] of integer;

Begin

   Dat[1] := 4; Dat[2] := 5;

   Dat[3] := 4; Dat[4] := 3;

   Dat[5] := 2; Dat[6] := 3;

   Dat[7] := 4; Dat[8] := 5;

   Dat[9]:=5; Dat[10]:=3;

   m := 0;

   for k := 1 to 10 do

     if Dat[k] > 3 then

      begin

        m := m + 1;

      end;

   writeln(m);

End.

  алг

нач

   цел­таб Dat[1:10]

   цел k, m

   Dat[1] := 4

   Dat[2] := 5

   Dat[3] := 4

   Dat[4] := 3

   Dat[5] := 2

   Dat[6] := 3

   Dat[7] := 4

   Dat[8] := 5

   Dat[9] := 5

   Dat[10] := 3

   m := 0

   нц для k от 1 до 10

      если Dat[k] > 3 то

         m := m + 1

      все

   кц

   вывод m

кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[10] = {4, 5, 4, 3, 2, 3, 4, 5, 5, 3};

    int m = 0;

    for (int k = 0; k < 10; k++)

        if (Dat[k] > 3) m = m + 1;

    cout << m;

    return 0;

}


Ответ:
13
Тип Д9 № 531
i

В таб­ли­це 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;

}


Ответ:
14
Тип Д9 № 4516
i

В таб­ли­це Ball хра­нят­ся баллы, на­бран­ные участ­ни­ка­ми школь­но­го тура олим­пи­а­ды по ма­те­ма­ти­ке (Ball[1]  — балл 1 уче­ни­ка, Ball[2]  — балл 2 уче­ни­ка и т. д.). Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ве­ден на пяти язы­ках про­грам­ми­ро­ва­ния.

Бей­сикPython

DIM Ball(10) AS INTEGER

DIM k,m AS INTEGER

Ball(1) = 42: Ball(2) = 25

Ball(3) = 13: Ball(4) = 18

Ball(5) = 15: Ball(6) = 55

Ball(7) = 48: Ball(8) = 13

Ball(9) = 64: Ball(10) = 45

m = Ball(1)

FOR k = 1 TO 10

IF Ball(k) < m THEN

m = Ball(k)

ENDIF

NEXT k

PRINT m

Ball = [42, 25, 13, 18, 15, 55, 48, 13, 64, 45]

m = Ball[0]

for k in range (10):

    if Ball[k] < m:

        m = Ball[k]

print (m)

Пас­кальАл­го­рит­ми­че­ский язык

Var k, m: integer;

Ball: array[1..10] of integer;

Begin

   Ball[1]:=42;Ball[2]:=25;

   Ball[3]:=13;Ball[4]:=18;

   Ball[5]:=15;Ball[6]:=55;

   Ball[7]:=48;Ball[8]:=13;

   Ball[9]:=64;Ball[10]:=45;

   m := Ball[1];

   for k := 1 to 10 do

     if Ball[k] < m then

      begin

        m := Ball[k];

      end;

   writeln(m);

End.

  алг

нач

   цел­таб Ball[1:10]

   цел k, m

   Ball[1] := 42

   Ball[2] := 25

   Ball[3] := 13

   Ball[4] := 18

   Ball[5] := 15

   Ball[6] := 55

   Ball[7] := 48

   Ball[8] := 13

   Ball[9] := 64

   Ball[10] := 45

   m := Ball[1]

   нц для k от 1 до 10

      если Ball[k] < m то

         m := Ball[k]

      все

   кц

   вывод m

кон

С++

#include <iostream>

using namespace std;

int main() {

    int Ball[10] = {42, 25, 13, 18, 15, 55, 48, 13, 64, 45};

    int m = Ball[0];

    for (int k = 0; k < 10; k++)

        if (Ball[k] < m) m = Ball[k];

    cout << m;

    return 0;

}


Ответ:
15
Тип Д9 № 30
i

В таб­ли­це 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) > m THEN

m = Dat(k)

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] > 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 := 0;

   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 := 0

   нц для 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 = 0;

    for (int k = 0; k < 10; k++)

        if (Dat[k] > m) m = Dat[k];

    cout << m;

    return 0;

}


Ответ:
Завершить работу, свериться с ответами, увидеть решения.


О про­ек­те · Ре­дак­ция · Пра­во­вая ин­фор­ма­ция · О ре­кла­ме
© Гущин Д. Д., 2011—2026