Формула в D2 =НЕ(ИЛИ(A2;C2))
Формула в E2 =НЕ(B2)
Формула в F2 =И(D2;E2)
Формула в G2 =И(НЕ(A2);НЕ(B2))
Формула в H2 =ИЛИ(G2;F2)
Истинное-У кошки Мурки один хвост.
Ложное-Наше домашнее животное муравей.
1 var
2 a, b, c, u, s: real;
3 Beging
4 Witeln('Введите стороны A, B , угол через пробел:');
5 readln(a, b, u);
6 c:= sqrt(sqr(a) + sqr(b) - 2 * a * b * cos(u * (pi / 180)));
7 s:= 0.5 * a * b * sin(u * (pi / 180));
8 Writeln('S: ', s:0:2);
writeln('P: ', a + b + c:0:2);
9 End.
Var
n: integer;
begin
Readln(n);
var a := ReadArrInteger(n);
writeln(a.Where(x -> (x mod 6 <> 0) and (x mod 10 <> 7)).Count)
end.