Пересечение оставляет элементы, присутствующие во всех множествах, участвующих в операции. Следовательно, максимально возможное количество элементов - это количество элементов в наименее мощном множестве. Ответ: 28.
Программа:
program Project1
uses crt;
var a,b,c:intiger;
begin
clrscr;
write('a= '); readln(a);
write('b=' ); readln(b);
с: =a;
a:= b;
b:=с;
readln;
writeln('a= '.a);
writeln('b= '.b);
readln
end.
Function IsPrime(n:longint):boolean;
var
found:boolean;
p:longint;
begin
if n<4 then IsPrime:=True
else begin
found:=(n mod 2=0);
p:=3;
while (not found) and (sqr(p)<=n) do
begin found:=(n mod p=0); p+=2 end;
IsPrime:=not found
end
end;
var
a,b,i:longint;
begin
Write('Введите начало и конец интервала: ');
Readln(a,b);
for i:=a to b do
if IsPrime(i) then Write(i,' ');
Writeln
end.
На паскале :
var x1,x2,x3,y1,y2,y3,ax,bx,ay,by,a,b,p,s:integer;
begin
readln(x1); readln(y1); readln(x2); readln(y2);
x3:=x1; y3:=y2; //координаты 3 точки
ax:=x1-x3; ay:=y1-y3; bx:=x2-x3; by:=y2-y3; //координаты направляющих векторов
a:=sqrt(sqr(ax)+sqr(ay)); //длинна вектора
b:=sqrt(sqr(bx)+sqr(by)); //длинна вектора
p:=2*(a+b); //периметр
s:=a*b; //площадь
writeln(p);
writeln(s);
end.
Потому что у тебя на ПЭВМ может быть множество файлов с одинаковым именем. И как компьютеру понять, какое тебе нужно? Вот здесь и играют свою роль полные имена. Полное имя позволяет различить файл вася.txt, лежащий в папке АБВГД диска E: и файл вася.txt в корне диска C: . Потому что у одного полное имя E/АБВГД/вася.txt, а у другого C/вася.txt
