№№ заданий Пояснения Ответы Ключ Добавить инструкцию Критерии
Источник Раздел кодификатора ФИ­ПИ
PDF-версия PDF-версия (вертикальная) PDF-версия (крупный шрифт) PDF-версия (с большим полем) Версия для копирования в MS Word
Задания
Задания Д9 № 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.