В таблице Work хранятся данные о количестве заказов, принятых фирмой "Алоэ" с первого по 15 ноября. (Work[1] – число заказов, принятых 1 ноября, Work[2] – 2 ноября и т. д.). Определите, какое число будет напечатано в результате...
В таблице 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.
______
Пожалуйста, поясните как решать, серьёзно не доходит)
Гость
Ответ(ы) на вопрос:
ГостьПояснения к задаче - в прилагаемом файле
Не нашли ответ?
Похожие вопросы