Задания
Версия для печати и копирования в MS Word
Тип Д9 № 5472
i

В таб­ли­це A хра­нят­ся дан­ные о ко­ли­че­стве при­зе­ров олим­пи­а­ды по про­грам­ми­ро­ва­нию по 9-ти окру­гам Моск­вы. Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го ал­го­рит­ма, за­пи­сан­но­го на трех язы­ках про­грам­ми­ро­ва­ния.

 

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

алг

нач

  цел­таб A[1:9]

  цел k, score

  A[1] := 6; A[2] := 11

  A[3] := 7; A[4] := 12

  A[5] := 13; A[6] := 5

  A[7] := 9; A[8] := 3

  A[9] := 4

  score := 0

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

    если A[k] >= 9 то

      score := score + A[k]

    все

  кц

  вывод score

кон

Бей­сик

Пас­каль

DIM A(9) AS INTEGER

DIM k, score AS INTEGER

A(1) = 6: A(2) = 11

A(3) = 7: A(4) = 12

A(5) = 13: A(6) = 5

A(7) = 9: A(8) = 3

A(9) = 4

score = 0

FOR k = 1 TO 9

 IF A(k) >= 9 THEN

  score = score + A(k)

 END IF

NEXT k

PRINT score

END

var k, score: integer;

A: array[1..9] of integer;

begin

  A[1] := 6; A[2] := 11;

  A[3] := 7; A[4] := 12;

  A[5] := 13; A[6] := 5;

  A[7] := 9; A[8] := 3;

  A[9] := 4;

  score := 0;

  for k :=1 to 9 do

      if A[k] >= 9 then

         score := score+A[k];

  write(score);

end.


 

 

Ре­ше­ние.

Это за­да­ние ещё не ре­ше­но, при­во­дим ре­ше­ние про­то­ти­па.


В таб­ли­це A хра­нят­ся дан­ные о ко­ли­че­стве при­зе­ров олим­пи­а­ды по про­грам­ми­ро­ва­нию по 9-ти окру­гам Моск­вы. Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го ал­го­рит­ма, за­пи­сан­но­го на пяти язы­ках про­грам­ми­ро­ва­ния.

Бей­сикPython

DIM A(9) AS INTEGER

DIM k, score AS INTEGER

A(1) = 9: A(2) = 11

A(3) = 7: A(4) = 12

A(5) = 13: A(6) = 5

A(7) = 9: A(8) = 3

A(9) = 4

score = 0

FOR k = 1 TO 9

IF A(k) < 9 THEN

score = score + A(k)

ENDIF

NEXT k

PRINT score

A = [9, 11, 7, 12, 13, 5, 9, 3, 4]

score = 0

for k in range (9):

    if A[k] < 9:

        score = score + A[k]

print (score)

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

Var k, score: integer;

A: array[1..9] of integer;

Begin

   A[1]:=9;A[2]:=11;

   A[3]:=7;A[4]:=12;

   A[5]:=13;A[6]:=5;

   A[7]:=9;A[8]:=3;

   A[9]:=4;

   score := 0;

   for k := 1 to 9 do

     if A[k] < 9 then

      begin

        score := score + A[k];

      end;

   writeln(score);

End.

  алг

  нач

   цел­таб A[1:9]

   цел k, score

   A[1] := 9

   A[2] := 11

   A[3] := 7

   A[4] := 12

   A[5] := 13

   A[6] := 5

   A[7] := 9

   A[8] := 3

   A[9] := 4

   score := 0

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

      если A[k] < 9 то

         score := score + A[k]

      все

   кц

   вывод score

кон

С++

#include <iostream>

using namespace std;

int main() {

    int A[9] = {9, 11, 7, 12, 13, 5, 9, 3, 4};

    int score = 0;

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

        if (A[k] < 9) score = score + A[k];

    cout << score;

    return 0;

}



Про­грам­ма пред­на­зна­че­на для на­хож­де­ния сум­мар­но­го ко­ли­че­ства при­зе­ров олим­пи­а­ды в окру­гах Моск­вы, в ко­то­рых ко­ли­че­ство при­зе­ров мень­ше 9. Про­ана­ли­зи­ро­вав вход­ные дан­ные, при­хо­дим к вы­во­ду, что ответ 19.

 

Ответ: 19.


Аналоги к заданию № 5225: 5472 Все