В таблице Dat хранятся данные ежедневных измерений температуры воздуха (Dat[1] – температура в понедельник, Dat[2] – во вторник и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования. Алгоритмический язык Бейсик Паскаль
алг
нач
целтаб 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
кон 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
END IF
NEXT k
PRINT day
END var
Dat: array[1..7] of integer;
k, day: 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 begin
if Dat[k] <= 10 then
day := day+1;
end;
writeln(day);
end.

Популярно: Информатика

• 

  vika2082

  19.10.2022 20:32
  9класс. дан прямоугольник и его стороны а и б. нужно найти кол-во...
• 

  poli36914

  24.06.2022 04:45
  Напишите, средний код, на языке программирования python ! заранее,...
• 

  Olesyaaaaaa1

  07.03.2021 05:10
  Написать программу на паскаль для нахождения минимального элемента...
• 

  heni2001

  20.05.2021 02:09
  Составить программу и блок схему вывода на экран всех четных двузначных...
• 

  sva1978

  16.03.2021 13:55
  Нужно составить программу(ну как всегда var////began//// ну и...
• 

  Taylis69

  20.03.2023 07:50
  В двух ёмкостях содержатся растворы разной концентрации одной...
• 

  Матвей2048602

  18.09.2022 23:19
  с таблицой, умоляю! ​...
• 

  aminochka1516

  07.02.2022 18:23
  В какую сторону нужно возвращаться, если вы шли на юг?...
• 

  11123323333323232233

  12.08.2022 02:22
  1. Закон движения точки по прямой задается формулой s(t) = 9t^...
• 

  kudryavcevanat

  15.04.2023 09:39
  Запорізькою Січчю називали...?​...