информатика
сайты - меню - вход - новости




Задания
Версия для печати и копирования в MS Word
Задание 10 № 1144

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

 

БейсикPython

DIM Dat(7) AS INTEGER

DIM k, day AS INTEGER

Dat(1) = 14: Dat(2) = 9

Dat(3) = 0: Dat(4) = 15

Dat(5) = 0: Dat(6) = 15

Dat(7) = 10

day = 0

FOR k = 1 TO 7

IF Dat(k) = 0 THEN

day = k

ENDIF

NEXT k

PRINT day

Dat = [14, 10, 0, 15, 0, 15, 10]

day = 0

for k in range(7):

    if Dat[k] == 0:

        day = k + 1

print (day)

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

Var k, day: integer;

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

Begin

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

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

   Dat[5] := 0; Dat[6] := 15;

   Dat[7] := 10;

   day := 0;

   for k := 1 to 7 do

      if Dat[k] = 0 then

       begin

          day := k;

       end;

   writeln(day);

End.

   алг

   нач

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

   цел k, day

   Dat[1] := 14

   Dat[2] := 10

   Dat[3] := 0

   Dat[4] := 15

   Dat[5] := 0

   Dat[6] := 15

   Dat[7] := 10

   day := 0

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

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

           day := k

       все

   кц

   вывод day

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[7] = {14, 10, 0, 15, 0, 15, 10};

    int day = 0;

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

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

    cout << day;

    return 0;

}

 

Пояснение.

Программа пред­на­зна­че­на для опре­де­ле­ния по­след­не­го дня в неделе, в ко­то­рый не вы­па­ло осадков. Следовательно, про­грам­ма вы­ве­дет число 5.

 

Ответ: 5.