Const nmax=20;var a:array[1..nmax,1..nmax] of integer; m,n,i,j,k,l,p:byte;begin
randomize;repeatwrite('Количество строк до ',nmax,' n=');readln(n);until n in [1..nmax];repeatwrite('Количество столбцов до ',nmax,' m=');readln(m);until m in [1..nmax];writeln('Исходная матрица:');for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100); write(a[i,j]:4); end; writeln; end;writeln;k:=0;{наличие нужного столбца}j:=1;while(j<=m) and(k=0) do{идем по столбцам} begin p:=0;{наличие совпадений} for i:=1 to n-1 do{идем вниз по столбцу} for l:=i+1 to n do{смотрим впереди} if a[i,j]=a[l,j] then p:=1;{если одинаковые, фиксируем} if p=1 then k:=1{есть столбец} else j:=j+1;{нет, смотрим следующий} end;if k=1 then write('Столбец с одинаковыми элементами есть')else write('Столбца с одинаковыми элементами нет');readlnend.
var
n,s:integer;
begin
repeat
write ('N = ');readln(n);
until (n>=10000) and (n<=32767);
s:=n div 10000 + (n div 1000) mod 10 + n mod 10;
writeln ('Summa: ',s);
readln;
end.
Стандартно - система (Ваш ПК), т.е. представим, что вы создали папку - ее имя и будет обозначено, как "новая папка", "новая папка1" и т.д. Точно так же со всеми остальными файлами: у текстового документа (блокнот) и будет имя "Текстовый документ".
Не стандартно - Вы. Вы можете изменять имя как угодно, используя допустимые символы.
11+1=100
111+1=1000
1111+1=10000
11111+1=100000
Ответ:
2 3
Объяснение:
Определение: Конъюнктивная нормальная форма, КНФ — нормальная форма, в которой булева функция имеет вид конъюнкции нескольких простых дизъюнктов.