(¬(M V L) /\ K) → ((¬K /\¬M) \/ N)
(¬M /\ ¬L /\ K) → ((¬K /\¬M) \/ N)
ложно если первая часть 1 а вторая 0
¬M /\ ¬L /\ K = 1 => m=0, l=0,k=1
(¬K /\¬M) \/ N = 0
подставляем
(0 /\1) \/ N = 0 => n=0
<span>var
a,b:integer;
procedure Poisk(a,b:integer);
begin
if a > b then
writeln('Меньшее число ', b);
if a=b then
writeln('Равны');
if a < b then
writeln('Меньшее число ', a);
end;
begin
writeln('Введите числа');
readln(a,b);
Poisk(a,b);
end.</span>
Ответ 28
логично же
<span>for i:=1 to 28 do (пробелы нужны, иначе не скомпилируется)
</span>для i от 1 до 28 т.е
i:=1 -> выполняется тело
<span>i:=2 -> выполняется тело
</span><span>i:=3 -> выполняется тело
</span>...
<span>i:=28 -> выполняется тело</span>
Оранжевый смотрится лучше
{ Лаконично :) }
begin
var a: <em>array</em> [1..5] of <em>Int64</em>;
var i: <em>byte</em>;
for i := 1 to 5 do readln(a[i]);
writeln('Max: ', System.Math.Max(a[1], System.Math.Max(a[2], System.Math.Max(a[3], System.Math.Max(a[4], a[5])))));
<span>end.</span>