В таблице Dat хранятся данные ежедневных измерений количества осадков за неделю в миллиметрах (Dat[1] — данные за понедельник, Dat[2] — за вторник и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на пяти языках программирования.
| Бейсик | Python |
|---|---|
DIM Dat(7) AS INTEGER DIM k, day AS INTEGER Dat(1) = 14: Dat(2) = 9 Dat(3) = 0: Dat(4) = 15 Dat(5) = 0: Dat(6) = 15 Dat(7) = 10 day = 0 FOR k = 1 TO 7 IF Dat(k) = 0 THEN day = k ENDIF NEXT k PRINT day | Dat = [14, 10, 0, 15, 0, 15, 10] day = 0 for k in range(7): if Dat[k] == 0: day = k + 1 print (day)
|
| Паскаль | Алгоритмический язык |
Var k, day: integer; Dat: array[1..7] of integer; Begin Dat[1] := 14; Dat[2] := 10; Dat[3] := 0; Dat[4] := 15; Dat[5] := 0; Dat[6] := 15; Dat[7] := 10; day := 0; for k := 1 to 7 do if Dat[k] = 0 then begin day := k; end; writeln(day); End.
| алг нач целтаб Dat[1:7] цел k, day Dat[1] := 14 Dat[2] := 10 Dat[3] := 0 Dat[4] := 15 Dat[5] := 0 Dat[6] := 15 Dat[7] := 10 day := 0 нц для k от 1 до 7 если Dat[k] = 0 то day := k все кц вывод day кон |
| С++ | |
#include <iostream> using namespace std; int main() { int Dat[7] = {14, 10, 0, 15, 0, 15, 10}; int day = 0; for (int k = 0; k < 7; k++) if (Dat[k] == 0) day = k + 1; cout << day; return 0; } | |
Программа предназначена для определения последнего дня в неделе, в который не выпало осадков. Следовательно, программа выведет число 5.
Ответ: 5.