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