1)
Чтобы выражение было истинным, небходимо, чтобы и K>1 было истиной и не (K>13) тоже было истиной. не (K>13) это то же самое, что и K<=13. Тогда выходит, что формула будет истинна при значениях от 2 до 13.
2)
(K < 4) или (K >= 7)
Т.к. сказано, что выражение ложно, следовательно и (K<4), и (K>=7) - ложные высказывания. Значит K>=4 и K<7 - верные высказывания. Получается, что у Маши может быть либо 4, либо 5, либо 6 конфет.
Var
a,b,c,d:real;
begin
write('Введите A=');read(a);
write('Введите B=');read(b);
write('Введите C=');read(c);
D:=sqr(b)-4*a*c;
if D<0 then begin
writeln('D=',D,' ', 'Нет корней');end;
if D=0 then begin
writeln('D=',D,' ', 'x1=', -b/(2*a));end;
if D>0 then begin
writeln('D=',D,' ','x1=',(-b-sqrt(d))/(2*a));
writeln('D=',D,' ','x2=',(-b+sqrt(d))/(2*a));
end;
end.
Не понял точно, что значит в развернутом виде, но если ты имел ввиду разложить на десятки, то вот:10000+3000+600+60+3