РЕШУ ОГЭ — информатика

Задания

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

Алгоритмический язык
алг нач целтаб 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 кон
Бейсик	Паскаль
DIM Dat(7) AS INTEGER 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 IF Dat(k) = 0 THEN day = k END IF NEXT k PRINT day END	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 day := k; write(day); end.

Решение.

Это задание ещё не решено, приводим решение прототипа.

В таблице 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; }

Программа предназначена для нахождения количества дней, в которые температура воздуха была не больше 10. Проанализировав входные данные, приходим к выводу, что ответ 4.

Ответ: 4.

Ключ