Логическое выражение not (x< =4) and (x> =2) or (x=3) принимает значение true при следующих значениях x 1)2 ; 2)-1 ; 3)3; 4)3 ; 5)5

Мы получили условие, что выражение будет истинныи, если x> 4 или x=3 если ошибки в вариантах нет, то удовлетворяют 3), 4), 5)

Извиняюсь за громоздкость мб можно и короче, сможешь расписать присваивание к каждой переменной а ,б и с рандомное значение, как я указал не через запятую? если нет, то я через часок другой вброшу короткое решение, а пока это. program n_1;   type   m= array [1..5] of integer;   var   a,a1,a2,a3,a4,a5,a6,a7,a8,a9: integer;   b,b1,b2,b3,b4,b5,b6,b7,b8,b9: m;   c,c1,c2,c3,c4,c5,c6,c7,c8,c9: m;   d,d,d2,d3,d4,d5,d6,d7,d8,d8: m;   begin   randomize;   b,b1,b2,b3,b4,b5,b6,b7,b8,b9: = random;   c,c1,c2,c3,c4,c5,c6,c7,c8,c9: = random;   d,d,,d2,d3,d4,d5,d6,d7,d8,d8: = random;   a: = (b+c+d) div 3;   a1: = (b1+c1+d1) div 3;   a2: = (b2+c2+d2) div 3;   a3: = (b3+c3+d3) div 3;   a4: = (b4+c4+d4) div 3;   a4: = (b5+c5+d5) div 3;   a6: = (b6+c6+d6) div 3;   a7: = (b7+7c+d7) div 3;   a8: = (b8+c8+d8) div 3;   a9: = (b9+c9+d9) div 3;   writeln ('ученик-', a);   writeln ('ученик 1-', a1);   writeln ('ученик 2-', a2);   writeln ('ученик 3-', a3);   writeln ('ученик 4-', a4);   writeln ('ученик 5-', a5);   writeln ('ученик 6-', a6);   writeln ('ученик 7-', a7);   writeln ('ученик 8-', a8);   writeln ('ученик 9-', a9) end.

Вот программа , если мы хотим сложить 2 квадрата одного числа program sqr;   var n,a: integer;   begin   write ('введите число> > ');   read (n);   a: = n*n+n*n;   writeln (a) end. но если мы хотим выразить 1 число в виде суммы 2-х квадратов и проверить возможно ли это, то (боюсь ошибиться) program sqr;   uses crt;   var n: integer; a,b: real;   begin   write ('введите число> > ');   read (n);   a: = sqrt(n);   if (a= sqrt(n)) and (a=(n*n)) then   begin   b: = sqrt(a);   if b= (a*a)+(a*a) then   writeln ('можно');   if b< > (a*a)+(a*a) then   writeln ('нельзя');   end;   if (a= sqrt(n)) and (a< > n*n) then   writeln ('нельзя') end.