1.укажите, сколько раз выполнится тело цикла с заданным заголовком: for i: = -1 to 2 do; a)4 б)0 в)3 г)бесконечное число раз 2.укажите, сколько раз выполнится тело цикла с заданным заголовком: for i: =1 to 6 do а)1 б)6 в)5 г)бесконечное число 3.что является назначением представленного фрагмента программы: s: =0; for k: =1 to 100 do s: =s+k? а)вычисление сотой степени числа k б)вычисление суммы ста чисел, введенных пользователем в)вычисление суммы первых ста натуральных чисел

1. a)  (-1, 0, 1, 2)
2. б) (1, 2, 3, 4, 5, 6)
3. в) (Тут в принципе логично)

А) не ( A или не В и С ) упрощаем выражение и получаем
not(a) and (b or not(c))

Код на Python:

for a in range(0,2):
    for b in range(0,2):
        for c in range(0,2):
            f=not(a) and (b or not(c))
            print('A = ',a,'B = ',b,'C = ',c,'F = ',f)

б) А и не ( В и или не С) получим такое выражение:
a and (b or not(c))

Код на Python:

for a in range(0,2):
    for b in range(0,2):
        for c in range(0,2):
            f=a and (b or not(c))
            print('A = ',a,'B = ',b,'C = ',c,'F = ',f)


в) не ( не А или В и С)  преобразуем:
a and (b or c)

Код на Python:

for a in range(0,2):
    for b in range(0,2):
        for c in range(0,2):
            f=a and (b or c)
            print('A = ',a,'B = ',b,'C = ',c,'F = ',f)

Var a1, b1, c1, a2, b2, c2, p1, p2, s1, s2: real;
begin
  writeln('Введите строны первого треугольника: ');
  read(a1, b1, c1);
  writeln('Введите стороны второго треугольника: ');
  read(a2, b2, c2);
  p1 := (a1 + b1 + c1) / 2;
  p2 := (a2 + b2 + c2) / 2;
  s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
  s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
  if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
                                           else writeln('Неравновеликие');
end.