Question

Выделите один оператор так, чтобы программа печатала только те числа, которые кратны 3. Var x: integer; Begin [x:=5;] [x:=x+1;] while x<100 do begin [x:=x+3;] [x:=x+1;] [write (x)] end; End.

Answer 1

Ответ на фото

Объяснение:

Answer 2

Вот ваш код с выделенным оператором, который будет выводить только числа, кратные 3:

pascalCopy code
Var x: integer;
Begin
  x := 5;
  x := x + 1;
  while x < 100 do
  begin
    x := x + 3;  { Выделенный оператор }
    x := x + 1;
    if (x mod 3 = 0) then
      write(x);
  end;
End.

В этом коде добавлен оператор if (x mod 3 = 0) then, который проверяет, является ли значение переменной x кратным 3, и только в этом случае выполняет операцию вывода числа.