Логическая функция F задается выражением ¬w ∧ z ∧ (y →x)

program xxx;

    var i, k, d, e, s : integer;

begin

  k: =0;

  for i: = 10 to 99 do

    begin

          d: = i div 10;

          e: = i mod 10;

          s: =d + e;

          if i mod s = 0 then k: =k+1

    end;

    write ('кол-во чисел которые делятся на сумму своих цифр=', k);

    readln

end.

1. делим a и b на 33.

2. округляем вверх (до следующего целого)

3. перемножаем округлённые числа.

4. делим на n.

5. округляем вверх.

формулой: x = [([a/33]+1)*( [b/33]+1) / n]   + 1

где [y] - целая часть числа y. 

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

триста восемьдесят девять миллиардов,триста шестьдесят пять миллионов, четыреста две тысячи, двести один.