Question

Срочно, помогите Найдите кол-во целых чисел от а до б включительно, которые не делятся на 3

Answer 1

// PascalABC.NET 3.2, сборка 1336 от 14.11.2016
begin
  var a,b:integer;
  Write('Введите a,b: '); Read(a,b);
  Writeln('Чисел, не делящихся на 3, на [',a,';',b,']- ',
    Range(a,b).Where(x->x mod 3<>0).Count)
end.

Пример
Введите a,b: 12 24
Чисел, не делящихся на 3, на [12;24]- 8

Answer 2

Чтобы найти количество целых чисел от а до б включительно, которые не делятся на 3, нужно выполнить следующие шаги:

1. Найдите количество целых чисел от а до б включительно, которые делятся на 3. Для этого нужно найти количество чисел, делящихся на 3 в интервале от а до б, исключая границы. Для этого используется формула: количество чисел, делящихся на 3 = (б - а - 1) / 3.

2. Вычтите найденное количество чисел, делящихся на 3, из общего количества чисел в интервале от а до б (б - а + 1). Таким образом, количество чисел, не делящихся на 3, будет равно: количество чисел, не делящихся на 3 = (б - а + 1) - количество чисел, делящихся на 3.

Пример: Пусть а = 5, б = 15. Найдем количество целых чисел от 5 до 15 включительно, которые не делятся на 3.

Количество чисел, делящихся на 3 = (15 - 5 - 1) / 3 = 3. Количество чисел, не делящихся на 3 = (15 - 5 + 1) - 3 = 8.

Таким образом, в интервале от 5 до 15 включительно есть 8 целых чисел, которые не делятся на 3.