Яких значень набуде змінна b після виконання умовного оператора іf, якщо а = 8? *

а) 16
б) 7
в) 9
г) 8

// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программа не работает, обновите версию!

function Geron(a,b,c:real):real;
// возвращает площадь треугольника со сторонами a,b,c
begin
  var p:=(a+b+c)/2; // полупериметр
  Result:=sqrt(p*(p-a)*(p-b)*(p-c))
end;

function Sp(ab,bc,ca,ad,bd,cd:real):real;
// возвращает площадь полной поверхности пирамиды
begin
  Result:=Geron(ab,bc,ca)+Geron(ab,ad,bd)+Geron(bc,bd,cd)+
      Geron(ca,cd,ad)
end;

procedure Vvod(var ab,bc,ca,ad,bd,cd:real);
// ввод значений ребер
begin
  Writeln('Введите значения ребер пирамиды');
  Write('Ребра основания- AB,BC,CA: '); Read(ab,bc,ca);
  Write('Боковые ребра- AD,BD,CD: '); Read(ad,bd,cd)
end;

begin
  var ab1,bc1,ca1,ad1,bd1,cd1:real;
  Vvod(ab1,bc1,ca1,ad1,bd1,cd1);
  var Sp1:=Sp(ab1,bc1,ca1,ad1,bd1,cd1);
  var ab2,bc2,ca2,ad2,bd2,cd2:real;
  Vvod(ab2,bc2,ca2,ad2,bd2,cd2);
  var Sp2:=Sp(ab2,bc2,ca2,ad2,bd2,cd2);
  var d:=Sp1-Sp2;
  if d>0 then Writeln('Площадь Sполн 1й пирамиды больше на ',d)
  else
    if d<0 then Writeln('Площадь Sполн 2й пирамиды больше на ',-d)
    else Writeln('Площади Sполн пирамид равны');
end.

1. Разобьем условие на части, чтобы было нагляднее.
в числе меньше восьми цифр "И"
     [число кратно 3 "ИЛИ"
          (число содержит 2 "И" число кратно 5)]

2. Условие "в числе меньше восьми цифр" связано с остальной частью выражения по "И", следовательно, оно обязательное и все, что ему не удовлетворяет, должно быть отброшено вместе с этим условием.
Варианты 4) и 6) содержат 8 цифр и отбрасываются.

3. число кратно 3
    "ИЛИ"
          число содержит 2
          "И"
          число кратно 5
Если варианты "число кратно 3" есть, мы их выбираем, а это условие отбрасываем.
Кратны трем числа 1) 69 2) 12 и 7) 15.

4. Остались числа 3) 25, 5) 22 и 8) 55.
Проверяем их на условие
число содержит 2
"И"
число кратно 5
Содержат двойку 3) 25 и 5) 22, но лишь 25 кратно 5 - его и оставляем.

ответ: 1) 2) 3) 7)