Вычисление - PascalABC.NET

Подсчитать количество двузначных чисел, кратных 3.

Листинг программы

begin
  var (i, count) := (12, 0);
  while (i < 100) do begin
    count += 1;
    i += 3;
  end;
  write(count);
end.

Объяснение кода листинга программы

В данном коде выполняется следующие действия:

В первой строке объявляются две переменные i и count, которые инициализируются значениями 12 и 0 соответственно.
Далее, в цикле while выполняется следующая инструкция:
- Увеличивается значение переменной count на единицу.
- Значение переменной i увеличивается на 3.
Цикл выполняется до тех пор, пока значение переменной i меньше 100.
По завершению цикла, значение переменной count выводится на экран с помощью функции write. Таким образом, в результате выполнения данного кода на экран будет выведено число 33, так как цикл выполнится 33 раза (от 12 до 100 с шагом 3).