Емое,1) вроде бы 1010111010,1011 = 1.010.111.010,101.1 = 1272,518
здесь 001=1; 010=2; 111=7; 010=2; 101=5; 001=1
Заметим, что так как
собаки 120
кошки 270
кошки | собаки 390
то нет страниц, на которых ключевыми словами являются одновременно собаки и кошки (120+270=390; кошки и собаки = 0). Диаграмма Эйлера для такого случая показана на прилагаемом рисунке.
К1+К3 = 120
К2+К4 = 270
K3+К4+К5 = 100
К1+К2+К3+К4 = 390
K4 = 20
K3 = 10
К1+К2+К3+К4+К5 - ?
K5 = (K3+К4+К5)-K3-K4 = 100-10-20 = 70
К1+К2+К3+К4+К5 = 390+70 = 460
Точный наброски измеритель чертежи
Program ugadai;
uses crt;
var
i,z,o:integer;
begin
randomize;
writeln('Введите число от 0 до 99:');
z:=random(100);
for i:= 1 to 10 do
begin
read(o);
if (o = z) then
begin
writeln('Вы угадали!!!');
break;
end else begin
if (i = 10) then begin
writeln('Жалко,но число не отгаданно.Загаданное число было ', z);
end else begin
writeln('Упс! У вас еще ',10 - i,' попопыток. Введите число:');
end;
end;
end;
<span>end.</span>
<u>// PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
uses GraphABC;
begin
var (w,h):=(800,600); // размер графического окна
SetWindowSize(w,h);
var (xc,yc):=(w div 2,h div 2); // координаты центра
var R:=h-yc-20; // радиус описанной окружности
var n:=ReadInteger('Количество сторон n =');
Window.Clear;
Pen.Width:=5;
Pen.Color:=clRed;
var P:=new Point[n];
for var i:=0 to n-1 do begin
var arg:=2*Pi*i/n-Pi/2;
P[i].X:=Trunc(xc+R*cos(arg));
P[i].Y:=Trunc(yc+R*sin(arg))
end;
DrawPolygon(P);
end.