(A→(B→C))→((A→B)→(A→))≡1
(¬A+¬B+C)→(A*¬B+¬A+C)≡1
A*B*¬C+A*¬B+¬A+C≡1
A*(B*¬C+¬B)+¬A+C≡1 (применяем формулу: A+¬A*B=A+B)
A*(¬B+¬C)+¬A+C≡1
¬A+¬B+¬C+C≡1 (C+¬C=1)
1≡1
Const n =9; // Задаем кол-во элементов в массиве
var
i,sred:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do begin
if i*i*i = 1000 then break;
a[i]:= i*i*i;
sred:=sred+a[i];
end;
writeln('Среднее значение элементов = ', sred/n);
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1457 от 29.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var z:=MatrRandom(4,6,10,80);
z.Println(4); Writeln(4*z.ColCount*'-');
var t:=z.ElementsWithIndexes.MaxBy(x->x[2]);
Writeln('Максимальный элемент z[',t[0]+1,',',t[1]+1,']=',t[2])
end.
<u>Пример</u>
*** Исходный массив ***
47 18 64 34 29 42
68 55 80 68 44 34
15 51 43 75 32 52
21 38 36 48 58 69
------------------------
Максимальный элемент z[2,3]=80
//PascalABC.NET
begin
write('Длина меньшей стороны: ');
var a := ReadlnReal;
writeln('Длина диагонали равна ', sqrt(a*a+ 9*a*a):8:3)
end.
Эмммм.....
prorgam psck;
begin
writeln('Информационное сообщение');
end.