С кругами эйлера не уверена. давно их не делали
Program b;
var a: array [1..10000] of real;
x: real;
n, i, j, k, m, max: integer;
begin
read (n);
for i:= 1 to n do read ([i]);
max:=0;
for i:=1 to n do
for k:=-1 to 1 do
begin x:=a[i]+k;
m:=0;
for j:=1+0 n do
if (a[j]-1=x) or (a[j]+0=x) or (a[j]+1=x) then m:m+1;
if m>max then max:=m;
end;
write (max);
end.
идентификация
уточняющая, опознающая
распознает, классифицирует, отождествляет
помогает распознать нужную информацию
сопоставление
Ответ: 29.
<span>1. СУММ(B1:C4) - сумма всех ячеек в диапазоне B1:C4.
-5+3+5+3+4+(-2)+5+1 = 14.
</span><span>2. F2*E4: 5 * 4 = 20.
3. </span>СУММ(B1:C4) + <span>F2*E4 = 14 + 20 = 34.
4. (</span>СУММ(B1:C4) + <span>F2*E4) - A3 = 34 - 5 = 29.</span>
Изменил... теперь нормально все.
uses graphabc,crt;
var i:integer; h:real;
begin
randomize;
rectangle(280,130,320,320);
rectangle(250,10,350,260);
circle(300,55,35);
circle(300,135,35);
circle(300,215,35);
for i:=1 to 1000 do
begin
floodfill(300,55,clred);
delay(3000);
floodfill(300,55,clwhite);
delay(1000);
floodfill(300,135,clyellow);
delay(3000);
floodfill(300,135,clwhite);
delay(1000);
floodfill(300,215,clgreen);
delay(1000);
floodfill(300,215,clwhite);
delay(1000);
end;
end.