Ответ под номером 3 поскольку мы сначала идем через дорогу А-С, потом С-D, потом D-E, поскольку дорога в F только одна то двигаемся по дороге E-F.
Program Temperatura;
Var d, k, T: integer; f: byte; a: array [1..7] of integer;
Begin f := 0;k := 0;
Writeln('Введите температуру');
for d := 1 to 7 do Begin
Write(d, ' день: ');
Readln(a[d]);
end;
for d := 1 to 7 do if a[d] > 0 then
Begin
k := k + 1;
f := 1;
end;
if f = 0 then Writeln('Всю неделю температура была ниже нуля.')
else
Writeln('Дни с температурой выше нуля - ', k);
T := a[1] + a[2] + a[3] + a[4] + a[5] + a[6] + a[7];
WriteLn('Средняя температура за неделю:', T / 7:0:2);
end.
8310 4155 2077 1038 519 259 129 64 32 16 8 4 2 1
0 1 1 0 1 1 1 0 0 0 0 0 0 1
8310 (10) =10000001110110 (2) в скобках указана система счисления
195(10)=11000011 (2) четыре единицы
26310 3288 411 51 6
26304 3288 408 48 0
-----------------------------------------
6 0 3 3 6
26310(10)= 63306 (8)
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqInteger('Вводите:', 15)
.Where(t -> t.InRange(1, 14)).Sum.Println
end.