<span>фрегат & эсминец 500
фрегат 2000
эсминец 2500</span>
Формула включений исключений
<span>фрегат | эсминец = </span>фрегат + эсминец - (фрегат & эсминец) = 2500+2000-500 = 4000
#include <iostream>
using namespace std;
int main()
{<span>
setlocale(0,"");</span><span>
int m,d;</span><span>
cout<<"введите номер месяца ";</span><span>
cin>>m;</span><span>
cout<<endl;</span><span>
cout<<"введите номер дня ";</span><span>
cin>>d;</span><span>
cout<<endl;
</span><span> if ((d==28) || (d==31) || (d==30) )</span><span>
cout<<"следующая дата "<<m+1<<". "<<1<<endl;
</span><span> else
</span><span> cout<<"</span>следующая дата<span> "<<m<<". "<<d+1<<endl;
</span><span> return 0;
</span>}
1)90 * 60=5400
5400*8=43200(байтов)
2)17*26=442
442*120=53040(точек)
3)53040 : 43200 как 10608:8640
Первое
var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
var t: integer;
begin
t := x;
x := y;
y := t
end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
for i:=2 to 99 do if (a[i]=a[i+1]) or (a[i]=a[i-1]) then writeln('a[',i,']=',a[i]);
end.
Второе
var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
var t: integer;
begin
t := x;
x := y;
y := t
end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
if a[1]<>a[2] then writeln('a[1]=',a[1]);
for i:=2 to 99 do if (a[i]<>a[i+1]) and (a[i]<>a[i-1]) then writeln('a[',i,']=',a[i]);
if a[100]<>a[99] then writeln('a[100]=',a[100]);
end.
Шрифт, размер, начертание и цвет.
