Просто выделяй обе эти ячейки и растягивай их
Импликация ложна только в одном случае, когда первая часть истинна, а вторая наоборот ложна.
<span>(10<x*x*x) - эта часть должна быть истинна
</span><span>(10>(x+1)*(x+1)-x)) - эта часть должна быть ложная
</span>(10<x*x*x) при х = 4 истинна:
10<4*4*4
10<64 - истина
(10>(x+1)*(x+1)-x))
10>(4+1)*(4+1)-4
10>5 * 5 - 4
10 > 21 - ложно
Значит, наименьшее х = 4, при котором высказывание ложно
Var m1,m2,st,i:integer;
begin
m1:=0; m2:=0;
st:=1;
for i:=1 to 30 do
begin
m1:=m1+100;
m2:=m2+st;
st:=st*2;
end;
writeln('Богатый: ',m1,' бедный: ',m2);
if m1<m2
then writeln('Выиграл богатый') else writeln('Выиграл бедный');
end.
Результат:
Богатый: 3000 бедный: 1073741823
Выиграл богатый
Var
a,b,c,d:real;
begin
Write('Введите коэффициенты уравнения a,b,c: ');
Readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then Writeln('Корней нет')
else if d=0 then Writeln('Один корень')
else Writeln('Два корня')
end.
1*10^1+3*10^0+2*10^-1+1*10^-2
1*8^2+2*8^1+3*8^0+2*8^-1
1*16^1+2*16^0+3*16^-1