Question

1)Что будет выведено на экране монитора после выполнения следующего фрагмента программы: var i,a,b: integer; begin b := 20; a := 5; for i:=1 to 5 do begin a := a + 1; write( a ); end; end. 2)Что будет выведено на экране монитора после выполнения следующего фрагмента программы: b:=0; while a<>0 do begin a:=a div 10; h:=b*10+a mod 10; end; write(h); если а=13305? 3)Что будет выведено на экране монитора после выполнения следующего фрагмента программы: var i,a,b: integer; begin b := 18; a := 8; repeat a := 2*a + 1; write( a); until (a>b) end. 4)Дана последовательность операторов: a:=1; b:=1; while a+b<6; b:=b+2*a; end; s:=a+b сколько раз будет повторен цикл? 5)Что будет выведено на экране монитора после выполнения следующего фрагмента программы: var i,a,b: integer; begin b := 8; a := 3; while (a <= b) do begin a := a *2+1 ; write(a ); end; end.

Answer 1

Объяснение:

1) так как мы выводим а, а каждый раз увеличивается на один, мы увидим

6 7 8 9 10

2) 0

3) 17, 35

4) 2 раза

5) 7, 15

Answer 2

1) Что будет выведено на экране монитора после выполнения следующего фрагмента программы:

var i, a, b: integer;
begin
  b := 20;
  a := 5;
  for i := 1 to 5 do
  begin
    a := a + 1;
    write(a);
  end;
end.

После выполнения данного фрагмента программы на экране монитора будет выведена последовательность чисел: 6 7 8 9 10.

2) Что будет выведено на экране монитора после выполнения следующего фрагмента программы:

b := 0;
while a <> 0 do
begin
  a := a div 10;
  h := b * 10 + a mod 10;
end;
write(h);

Если значение переменной `a` равно 13305, то после выполнения данного фрагмента программы на экране монитора будет выведено число 50.

3) Что будет выведено на экране монитора после выполнения следующего фрагмента программы:

var i, a, b: integer;
begin
  b := 18;
  a := 8;
  repeat
    a := 2 * a + 1;
    write(a);
  until (a > b);
end.

После выполнения данного фрагмента программы на экране монитора будет выведена последовательность чисел: 17 35.

4) Дана последовательность операторов:

a := 1;
b := 1;
while a + b < 6 do
begin
  b := b + 2 * a;
end;
s := a + b;

Цикл будет повторен 2 раза.

5) Что будет выведено на экране монитора после выполнения следующего фрагмента программы:

var i, a, b: integer;
begin
  b := 8;
  a := 3;
  while (a <= b) do
  begin
    a := a * 2 + 1;
    write(a);
  end;
end.

После выполнения данного фрагмента программы на экране монитора будет выведена последовательность чисел: 7 15 31.