(X∧(Y∨!X))⇒!Y = (X∧Y)V(X∧!X)⇒!Y = X∧Y⇒!Y = !(X∧Y)∨!Y =!(X∧Y∧Y)=!(X∧Y)=
!X ∨ !Y
Таблица истинности во вложении
program HelloWorld;
var k:integer;
begin
writeln('Введи сторону');
readln(k);
writeln(k*k)
end.
Paskall:
var a:array[1..5[ of integer;
i, min:integer;
begin
writeln('Введите элементы массива (5 целых чисел) в одной строке и нажмите <Enter>');
for i:=1 to 5 do
read(a[i]);
min:=a[1];
for i:=2 to 5 do
if(a[i]<min) then
min:=a[i];
writeln('Минимальный элемент массива: ', min);
end.