<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('Введите длину в миллиметрах:');
var b:=ReadReal('Введите длину в дюймах:');
var s:=Sign(a-25.4*b);
case s of
-1:Writeln('Второй отрезок длиннее');
0:Writeln('Отрезки равны');
1:Writeln('Первый отрезок длиннее')
end
end.
<span>a%5==0, </span><span>это проверка кратности, "%" - это действие которое даёт отстаток от деления на число, если остатка нет, т.е. он равен нулю, то "а" делится на число.</span>
<span>а>max тут думаю понятно, сверка с текущим максимумом)</span>
<span>если оба условия выполняются, то объявляется новый максимум)</span>
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 конфет.
Program __;Var n:Byte; a:Real;BEGIN a:=40000; n:=0; Repeat n:=n+1; a:=1.05*a; Until (a>45000); Writeln(n);END.
Исходя из формулы N=2^b, где b-вес одного символа получаем: 16 = 2^4