1)определите при каких целых значениях переменной k логическая формула (к> 1) и не (к> 13) примет значение истина? 2) у мали несколько конфет. утверждение «у маши меньше 4 конфет или не меньше 7 конфет»-неверно. сколько может быть конфет у маши? надо заранее ❤️

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 конфет.

1) по заданному радиусу: Program n1;
Uses CRT;
Var r,s: real;
begin
ClrScr;
writeln('Vvedite radius');
readln(r);
s:=r*r*pi;
Writeln('ploshad =',s:4:4);
readln
end. 2) по заданным сторонам:Program n1;
Uses CRT;
Var a,b,s: real;
begin
ClrScr;
writeln('Vvedite storoni');
readln(a,b);
s:=a*b;
Writeln('ploshad =',s:4:4);
readln
end. 3) по заданной сторонеProgram n1;
Uses CRT;
Var a,s: real;
begin
ClrScr;
writeln('Vvedite storony');
readln(a);
s:=a*a;
Writeln('ploshad =',s:4:4);
readln
end. 3) по одной стороне и высоте к ней:Program n1;
Uses CRT;
Var a,b,s: real;
begin
ClrScr;
writeln('Vvedite storony i vysoty k nei');
readln(a,b);
s:=a*b;
Writeln('ploshad =',s:4:4);
readln
end.

1)
var v,h,i:real;
begin
readln(v);
readln(h);
i:=h-100;
if v=i then writeln('у вас идеальный вес') else 
if v>i then writeln('вам нужно похудеть на ', v-i,' кг ') else
writeln('вам нужно поправиться на ', i-v,' кг ');
end.

2)
var a:string;
b:integer;
begin
readln(a);
b:=strtoint(a[length(a)]);
if (b mod 2 <> 0) and (b mod 5 <> 0) then writeln('число не делится ни на 2, ни на 5');
if (b mod 2 = 0) and (b mod 5 <> 0) then writeln('число делится только на 2');
if (b mod 2 <> 0) and (b mod 5 = 0) then writeln('число делится только на 5');
if (b mod 2 = 0) and (b mod 5 = 0) then writeln('число делится и на 2, и на 52');
end.