Задания
Версия для печати и копирования в MS Word
Тип Д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;

}

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

Ре­ше­ние.

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

 

Ответ: 4.


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