• В таблице Work хранятся данные о количестве заказов, принятых фирмой "Алоэ" с первого по 15 ноября. (Work[1] – число заказов, принятых 1 ноября, Work[2] – 2 ноября и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
    1.Алгоритмический язык
    алг

    нач

    целтаб Work[1:15]

    цел k, m

    Work[1] := 5; Work[2] := 4

    Work[3] := 5; Work[4] := 7

    Work[5] := 6; Work[6] := 12

    Work[7] := 7; Work[8] := 3

    Work[9] := 9; Work[10] := 7

    Work[11] := 0;Work[12] := 9

    Work[13] := 1;Work[14] := 0

    Work[15] := 8

    m := 0

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

    если Work[k] < 7 то

    m := m + 1

    все

    кц

    вывод m

    кон
    2.Бейсик
    DIM Work(15) AS INTEGER

    DIM k,m AS INTEGER

    Work(1)= 5: Work(2)= 4

    Work(3)= 5: Work(4) = 7

    Work(5)= 6: Work(6)= 12

    Work(7)= 7: Work(8)= 3

    Work(9)= 9: Work(10)= 7

    Work(11)= 0: Work(12)= 9

    Work(13)= 1: Work(14)= 0

    Work(15)= 8

    m = 0

    FOR k = 1 TO 15

    IF Work(k) < 7 THEN

    m = m + 1

    END IF

    NEXT k

    PRINT m
    3.Паскаль
    Var k, m: integer;

    Work: array[1..15] of integer;

    Begin

    Work[1] := 5; Work[2] := 4;

    Work[3] := 5; Work[4] := 7;

    Work[5] := 6; Work[6] := 12;

    Work[7] := 7; Work[8] := 3;

    Work[9] := 9; Work[10] := 7;

    Work[11] := 0; Work[12] := 9;

    Work[13] := 1; Work[14] := 0;

    Work[15] := 8;

    m := 0;

    For k := 1 to 15 Do

    If Work[k] < 7 Then

    Begin

    m := m + 1;

    End;

    Writeln(m);

    End.
    ______
    Пожалуйста, поясните как решать, серьёзно не доходит)

Ответы 0

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years