Можно переписать так:
Х≥ 6 + (Х<5)*(X≥4) = 0
1) X=7 не подходит, так как X≥6 =1
2) X=6 не походит, так как Х≥6=1
3) Х<5 не подходит , так как (X<5)*(X>=4) =1
4) Х=4 Х≥6 =0 и (Х<5)*(X≥4) =0 - подходит
Ответ 4) 4
<span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<span>screen 12
for x=0 to 640 step 5
cls
circle (x,240), 25
circle (x+100,240), 25
line (x+30,240)-(x+70,240)
line (x-50,240)-(x-30,240)
line (x+150,240)-(x+130,240)
line (x+150,240)-(x+150,190)
line (x-50,240)-(x-50,190)
line (x-50,190)-(x-10,190)
line (x+110,190)-(x+150,190)
circle (x+50,190),60 ,, 0 , 3.14
circle (x,240),30 ,, 0 , 3.14
circle (x+100,240),30 ,, 0 , 3.14
next x</span></span>
Ответ:
1)
Begin
Read(a);
S:=a mod 10+a div 10;
Writeln(s);
Writeln(a-s);
End.
2)
function Prost(a:longint):boolean;
var i:longint;
f:boolean;
begin
if a<2 then f:=false{первое простое=2}
else
begin
f:=true;{считаем что простое}
i:=2;
while (i*i<=a) and f do{пока счетчик меньше корня из числа и нет делителей}
if a mod i=0 then f:=false{если делитель, не постое}
else i:=i+1;{иначе дальше}
end;
Prost:=f;{результат true или false}
end;
Begin
Read(a,b);
For i:=a to b do
If Prost(i) then
Writeln(i);
End.
3)
Begin
Sum:=0;
For i:=1 to n do
If a[n] mod 3 = 0 then
Sum:=sum + a[n];
End.