Версия для копирования в MS Word
PDF-версии: горизонтальная · вертикальная · крупный шрифт · с большим полем
РЕШУ ОГЭ — информатика
Задания
i

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

Бей­сикPython

DIM Dat(7) AS INTEGER

DIM k, day AS INTEGER

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

Dat(3) = 10: Dat(4) = 13

Dat(5) = 8: Dat(6) = 5

Dat(7) = 11

day = 0

FOR k = 1 TO 7

IF Dat(k) <= 10 THEN

day = day + 1

ENDIF

NEXT k

PRINT day

Dat = [9, 11, 10, 13, 8, 5, 11]

day = 0

for k in range(7):

    if Dat[k] <= 10:

        day = day + 1

print (day)

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

Var k, day: integer;

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

Begin

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

   Dat[3] := 10; Dat[4] := 13;

   Dat[5] := 8; Dat[6] := 5;

   Dat[7] := 11;

   day := 0;

   for k := 1 to 7 do

     if Dat[k] <= 10 then

      begin

        day := day + 1;

      end;

   writeln(day);

End.

   алг

   нач

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

   цел k, day

   Dat[1] := 9

   Dat[2] := 11

   Dat[3] := 10

   Dat[4] := 13

   Dat[5] := 8

   Dat[6] := 5

   Dat[7] := 11

   day := 0

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

      если Dat[k] <= 10 то

         day := day + 1

      все

   кц

   вывод day

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int Dat[7] = {9, 11, 10, 13, 8, 5, 11};

    int day = 0;

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

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

    cout << day;

    return 0;

}