A\(B∪C)=(A\B)∩(A\C) - ?
Рассмотрим левую часть уравнения:
пусть х∈(А\(В∪С)) это по определению разности множеств это значит, что
х∈А и х∉(В∪С) , по определению объединению множеств х∉(В∪С),когда х∉В и х∉С ; иначе:
х∈А х∉В (А\В)
и ∩
х∈А х∉С (А\С)
это соответствует (А\В)∩(А\С) - правой части уравнения.
Док-но, равенство справедливо
Uses crt;
var a,t,ans:integer;
begin
read(a);
ans:=1;
while true do
begin
t:=a;
read(a);
if a>t then
ans:=ans+1
else
break;
end;
writeln(ans);
<span>end.</span>
Поднятие штанги, плавание, гимнастика, бокс.
3.5Кб*1024байт=3584байт
если двухбайтная кодировка то
3584:2=1792 символов
<span>Program matrica;
Uses crt;
Var a:array [0..8 , 0..8] of integer;
sum1,sum2,i,j:integer;
begin
randomize;
sum1:=0;
sum2:=0
for i:=1 to 8 do
begin
Writeln;
for j:=1 to 8 do
begin
a[i,,j]:=random(10);
if i=j then sum1:=sum1+a[i,j];
if i+j=9 then sum2:=sum2+a[i,j];
Write(a[i,j], ' ');
end;
end;
writeln('Сумма чисел первой диагонали -',sum1,' </span>'Сумма чисел второй диагонали<span>' ,sum2,');
end.</span>