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
=ЕСЛИ(И( A2>=160; B2<13);"Принят";"Нет")
№2
3
№3
=$C5*2
20 звезд.Можно легко проверить,переделав алгоритм.
var s:integer;
procedure F(n: integer);
begin
writeln('*');
if n>0 then begin
writeln('*');
s:=s+1;
F(n-2);
F(n div 2);
F(n div 2);
end;
end;
begin
f(7);
writeln(s);
end.
Во времена Конфуция писали на узеньких дощечках 'из расщепленного бамбука. Тонкую кисточку или палочку обмакивали в черную тушь и наносили иероглифы сверху вниз. Если делали ошибку, то соскабливали написанное ножом. Потом в дощечках делали отверстия и продевали бечевку. Связка бамбука и была древнекитайской книгой.
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure MyProc;
begin
var n:=ReadInteger('Введите порядок матрицы:');
Writeln('Введите построчно элементы матрицы');
var a:=ReadMatrInteger(n,n);
Writeln(4*a.ColCount*'-');
Write('Строки, содержащие только нули: ');
for var i:=0 to n-1 do
if a.Row(i).All(t->t=0) then Print(i+1);
Writeln
end;
begin
Loop 2 do MyProc
end.
<u>Пример</u>
Введите порядок матрицы: 3
Введите построчно элементы матрицы
1 0 0
0 0 1
0 0 0
------------
Строки, содержащие только нули: 3
Введите порядок матрицы: 2
Введите построчно элементы матрицы
0 0
0 0
--------
Строки, содержащие только нули: 1 2