Ответ:
бгав
Объяснение:
чтобы понять загугли "решение задач с кругами эйлера"
128000/8=16000 (байт)= <span>15.625 (Кбайт)
1000/</span><span>15.625= 64(сек)</span>
12-3
13-2
14-наверное 1
15-5
Ответ:
1) Дом
uses GraphABC;
begin
setwindowsize(800,800);
SetpenWidth(6);
rectangle(100,300,600,700);
Moveto(100,300);
Lineto(350,35);
lineto(600,300);
rectangle(130,420,260,600);
rectangle(450,450,600,700);
circle(480,570,5);
line(195,420,195,600);
line(130,500,260,500);
end.
2) Звезда
uses GraphABC;
begin
Setpenwidth(5);
Setpencolor(clred);
Moveto(300,0);
lineto(150,400);
lineto(300,300);
lineto(450,400);
lineto(300,0);
line(75,150,525,150);
line(75,150,450,400);
line(525,150,150,400);
end.
Uses Crt;
var a, b, c: integer;
Sab, Sac, Sbc: integer;
begin
ClrScr;
Write (' a = '); ReadLn(a);
Write (' b = '); ReadLn(b);
Write (' c = '); ReadLn(c);
Sab:=a+b;
Sac:=a+c;
Sbc:=b+c;
if (Sab>0) or (Sac>0) or (Sbc>0)
then WriteLn ( ' Да !')
else WriteLn ( ' Нет ...');
ReadLn;
<span>end.</span>