(5>30) v ( !(even(5) & (5<10) )
0 v ( 1 & 1) = 1
Истина
(8>30) v ( !(even(8) & (8<10) )
0 v ( 0 & 1 ) = 0
Ложь
(27>30) v ( !(even(27) & (27<10) )
0 v ( 1 & 0 ) = 0
Ложь
(42>30) v ( !(even(42) & (42<10) )
1 v ( 0 & 0 ) = 1
Истина
Способ определять положение точки или тела с помощью чисел или других символов.
Вроде здесь уже решал такое :)
//Pascal
var
n, a, b, c: integer;
begin
n := 1;
repeat
repeat
writeln(' Ведите стороны A,B,C ', n, ' - треугольника');
readln(a, b, c);
until ((a > 0) and (b > 0) and (c >0)) and ((a + b) >= c);
writeln('Периметр равен ',a + b + c);
n := n + 1;
until n > 25;
end.
A) (C4+C6)/D7
б) (D3+D5)/E6
в) (B2+B4)/C5
г) (E6+E8)/F9
Var
n, i, p1, p2: integer;
begin
read(n);
p2 := n mod 10;
while n > 0 do
begin
if(n div 10 <= 0) then p1 := (n mod 10);
n := n div 10;
end;
write(p2 / p1);
end.