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

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

Бей­сикPython

DIM App(12) AS INTEGER

DIM k,m AS INTEGER

App(1) = 100: App(2) = 128

App(3) = 80: App(4) = 99

App(5) = 120: App(6) = 69

App(7) = 55: App(8) = 115

App(9) = 84: App(10) = 111

App(11) = 59: App(12) = 100

m = 0

FOR k = 1 TO 12

IF App(k) > 100 THEN

m = m + 1

ENDIF

NEXT k

m = m + 10

PRINT m

App = [100, 128, 80, 99, 120, 69, 55, 115, 84, 111, 59, 100]

m = 0

for k in range(12):

    if App[k] > 100:

        m = m + 1

m = m + 10

print (m)

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

Var k, m: integer;

App: array[1..12] of integer;

Begin

 App[1]:=100; App[2]:=128;

 App[3]:=80; App[4]:=99;

 App[5]:=120; App[6]:=69;

 App[7]:=55; App[8]:=115;

 App[9]:=84; App[10]:=111;

 App[11]:=59;App[12]:=100;

 m := 0;

 for k := 1 to 12 do

   if App[k] > 100 then

    begin

      m := m + 1;

    end;

m := m + 10;

writeln(m);

End.

   алг

   нач

   цел­таб App[1:12]

   цел k, m

   App[1] := 100

   App[2] := 128

   App[3] := 80

   App[4] := 99

   App[5] := 120

   App[6] := 69

   App[7] := 55

   App[8] := 115

   App[9] := 84

   App[10] := 111

   App[11] := 59

   App[12] := 100

   m := 0

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

      если App[k] > 100 то

         m := m + 1

      все

   кц

   m := m + 10

   вывод m

   кон

С++

#include <iostream>

using namespace std;

int main() {

    int App[12] = {100, 128, 80, 99, 120, 69, 55, 115, 84, 111, 59, 100};

    int m = 0;

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

        if (App[k] > 100) m = m + 1;

    m = m + 10;

    cout << m;

    return 0;

}

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

Ре­ше­ние.

Про­грам­ма пред­на­зна­че­на для на­хож­де­ния ко­ли­че­ства лет, в ко­то­рые вла­де­лец со­брал более ста тонн яблок. Таких лет было 4. Учи­ты­вая, по­след­нее дей­ствие: m : = m + 10, по­лу­ча­ем ответ 14.