Определите значение переменной x после выполнения фрагмента программы: x : = 2019; if x > 100 then x : = x - 2000; if x < 100 then x : = x + 1;

Цикл выполнится 4 раза

a = 5     b = 16     s = 21

Объяснение:

a = 1     b = 1

Действия в цикле

a = a + 1

b = b * 2

Цикл заканчивается когда b > 8

s = a + b

a = 1     b = 1

a = a + 1 = 1 + 1 = 2

b = b * 2 = 1 * 2 = 2

b > 8 (2 > 8 - нет, цикл продолжается)

a = a + 1 = 2 + 1 = 3

b = b * 2 = 2 * 2 = 4

b > 8 (4 > 8 - нет, цикл продолжается)

a = a + 1 = 3 + 1 = 4

b = b * 2 = 4 * 2 = 8

b > 8 (8 > 8 - нет, цикл продолжается)

a = a + 1 = 4 + 1 = 5

b = b * 2 = 8 * 2 = 16

b > 8 (16 > 8 - да, цикл заканчивается)

s = a + b = 5 + 16 = 21

a = 5     b = 16     s = 21

Программа:

program z1;

var a,b,s:integer;

begin

a:=1 ;

b:=1 ;

repeat

a:=a+1 ;

b:=b*2 ;

until b>8 ;

s:=a+b;

writeln (s)

end.

//Pascal
  var a,b, I, maxsumm, max : integer;
 
  function summdel(x:integer):integer; //результат - сумма делителей х
  var k,sum:integer;
  begin
    sum:=0;
    for k := 1 to x div 2 + 1 do
      if x mod k = 0 then sum:= sum+k;
    summdel:=sum;
  end;
 
  begin
   writeln('Введите границы a,b ');
   readln(a,b);
    maxsumm := 1;
    max := 1;
    for i := a to b do
     begin
        if summdel(i) > maxsumm then
          begin maxsumm:= summdel(i);
            max := i;
          end;
     end;
     writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)
  end.