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

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

Бей­сикPython

DIM Lose(10) AS INTEGER

DIM t,m AS INTEGER

Lose(1) = 1: Lose(2) = 5

Lose(3) = 3: Lose(4) = 6

Lose(5) = 7: Lose(6) = 12

Lose(7) = 1: Lose(8) = 3

Lose(9) = 3: Lose(10) = 1

m = 0

FOR t = 1 TO 10

IF Lose(t) < 6 THEN

m = m + Lose(t)

ENDIF

NEXT t

PRINT m

Lose = [1, 5, 3, 6, 7, 12, 1, 3, 3, 1]

m = 0

for t in range (10):

    if Lose[t] < 6:

        m = m + Lose[t]

print (m)

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

Var t, m: integer;

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

Begin

   Lose[1]:=1;Lose[2]:=5;

   Lose[3]:=3;Lose[4]:=6;

   Lose[5]:=7;Lose[6]:=12;

   Lose[7]:=1;Lose[8]:=3;

   Lose[9]:=3;Lose[10]:=1;

   m := 0;

   for t := 1 to 10 do

     if Lose[t] < 6 then

      begin

        m := m + Lose[t];

      end;

   writeln(m);

End.

  алг

  нач

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

   цел t, m

   Lose[1] := 1

   Lose[2] := 5

   Lose[3] := 3

   Lose[4] := 6

   Lose[5] := 7

   Lose[6] := 12

   Lose[7] := 1

   Lose[8] := 3

   Lose[9] := 3

   Lose[10] := 1

   m := 0

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

      если Lose[t] < 6 то

         m := m + Lose[t]

      все

   кц

   вывод m

кон

С++

#include <iostream>

using namespace std;

int main() {

    int Lose[10] = {1, 5, 3, 6, 7, 12, 1, 3, 3, 1};

    int m = 0;

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

        if (Lose[t] < 6) m = m + Lose[t];

    cout << m;

    return 0;

}

Спрятать решение

Ре­ше­ние.

Про­грам­ма пред­на­зна­че­на для опре­де­ле­ния сум­мар­но­го ко­ли­че­ства уте­ря­но­го ба­га­жа за те года, в ко­то­рые было уте­ря­но менее шести еди­ниц ба­га­жа. Это ко­ли­че­ство равно 1 + 5 + 3 + 1 + 3 + 3 + 1 = 17.

 

Ответ: 17.