3. Запишите значение переменной s, полученное в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
а)
var s,k: integer;
begin
s := 0;
for k := 4 to 7 do
s := s + 8;
writeln(s);
end.
в)
var s,k: integer;
begin
s := 50;
for k := 0 to 8 do
s := s − 4;
writeln(s);
end.

var

 A: array [1..5] of Integer;

 i, c, nc: Integer;

begin

 c := 0;

 nc := 0;

 Randomize;

 for i := 1 to 5 do begin

   A [i] := Random (10);

   WriteLn (i, ': ', A [i]);

   if A [i] mod 2 = 0 then

     c := c + 1

   else

     nc := nc + 1;

 end;

 if c > nc then

   WriteLn ('четных элементов больше')

 else if nc > c then

   WriteLn ('нечетных элементов больше')

 else if nc = c then

   WriteLn ('четных и нечетных элементов равное количество');

 ReadLn;

end.

// Условие: "nc = c" написано "для надежности", такого быть не должно, так как количество элементов нечетно

1) процессы монтажа теплотехнического оборудования;

2) систему работы котельных на различные видах топлива;

3) организацию ремонтных работ тепловых сетей;

4) основы проектирования котельных и тепловых сетей;

5)процессы реконструкции тепловых сетей;

6) основные положения действующей нормативной документации по профилю специальности;

7) технологию производства, транспорта и использования тепловой энергии;

8) устройство, принцип действия, теплотехнические и эксплуатационные характеристики основного и вс теплотехнического оборудования;

9) методы расчеты тепловых схем;

и средства измерения автоматизации тепловых процессов; методы обнаружения и устранения дефектов в работе установок и оборудования.