Определите и выведите на экран количество чисел в промежутке от 100 до 1000 делящихся без остатка одновременно на 5 и 21 заранее

Var i,k: integer; begin k: =0; for i: = 100 to 1000 do  if (i mod 5=0) and (i mod 21=0) then k: =k+1; write(k) end.

что бы это уравнение было верно, нужно, что бы все скобки были итинными.

следствие всегда истинно, кроме если из истинны идет ложь. рассотрим эти варианты по скобкам. исключая варианты которые входят в предыдущие ходы.

1) j = 1 l = 0 8 вариантов

2) k = 1 l = 0 4 варианта

3) m = 1 n = 1 5 вариантов

4) l = 1 m = 0 8 вариантов

5) m = 1 k = 0 3 вариантов

всего  28 вариантов неверных.

32 - 28 = 4 верных варианта 4 решения уравнения.

 

п.с. можно решить легче: сначала подставить l=0 и делать что бы в скобках было 1 всегда. потом l=1. у меня получилось в первом 2 варианта и во втором 2. всего 4

function fact(n: integer): integer;

var

  rez, i: integer;

begin

  rez : = 1;

  for i : = 2 to n do

      rez : = rez * i;

  fact : = rez;

end;

 

function pow(a, x: integer): integer;

var

  rez, i: integer;

begin

  rez : = 1;

  for i : = 1 to x do

      rez : = a * rez;

  pow : = rez;

end;

 

var

  a, b, n, i: integer;

  f: real;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  write('n = '); readln(n);

  f : = 0;

  for i : = 1 to n do

      f : = f + fact(n - i + 1)/(pow(a,i) - pow(b, i));

  writeln('f = ', f);

end.