Ответ:
использовать Робот
алг
нач
закрасить
нц пока слева свободно
влево
если снизу стена то закрасить всё
кц
нц пока сверху свободно
вверх
если слева стена то закрасить всё
кц
кон
1)Функция
program fun;
function f(m,n : real):real;
var
k,x,y : real;
begin
x:=5*m+pi/3;
y:=3*n-pi/3;
k:=(cos(2*x)*cos(2*x))/(cos(y)+cos(pi/4));
f:=k;
end;
var
a,b : real;
begin
writeln('Введите число a= ');
read(a);
writeln('Введите число b= ');
read(b);
writeln('F= ',f(a, b):0:2);
end.
2) Процедура
program fun;
procedure f(m,n : real);
var
k,x,y : real;
begin
x:=5*m+pi/3;
y:=3*n-pi/3;
k:=(cos(2*x)*cos(2*x))/(cos(y)+cos(pi/4));
writeln('F=',k:0:2);
end;
var a, b :real;
begin
writeln('Введите число a= ');
read(a);
writeln('Введите число b= ');
read(b);
f(a,b);
end.
Строишь по таблице граф и перебираешь все пути.
Чтобы не потеряться, можно делать по алфавиту.
A→B→C→E = 2 + 1 + 2 = 5 ← кратчайший
A→C→E = 5 + 2 = 7
A→D→C→E = 1 + 3 + 2 = 6
<span>1 килобайт = 1024 байта
1 мегабайт = 1024 килобайта = 1024*1024 байт = 1048576 байт</span>