Какой оператор нужно выбрать, чтобы программа выводила только кратные 3 числа? Var x: integer; Begin [x:=5;] [x:=x+1

Цикл `while`:

Объяснение: Чтобы программа выводила только кратные трём числа, нужно использовать оператор `while` в сочетании с условным оператором `if`. Оператор `while` позволяет выполнять определенный блок кода до тех пор, пока условие, которое указано после него, является истинным. В данном случае, условием будет проверка кратности трём числа `x`.

Например:

Var x: integer;

Begin 

    x:= 1;

    while x <= 100 do

    begin

        if x mod 3 = 0 then

            writeln(x);

        x:= x + 1;

    end;

End.

Совет: Чтобы указать, что число `x` является кратным трём, используется оператор деления по модулю `mod`. Если результат деления числа `x` на 3 равен нулю, значит число является кратным трём.

Дополнительное упражнение: Напишите программу на языке Pascal, которая будет выводить все числа от 1 до 50,которые являются кратными 7.