var
A: array [1..9, 1..9] of Integer;
i, j: Integer;
begin
WriteLn ('Массив:');
for i := 1 to 9 do begin
for j := 1 to 9 do begin
if Abs (i - 5) + Abs (j - 5) <= 3 then
A [i, j] := 1
else
A [i, j] := 0;
end;
end;
for i := 1 to 9 do begin
for j := 1 to 9 do begin
Write (A [i, j], ' ');
end;
WriteLn;
end;
end.
A-B-D-E-G. Длина маршрута 2 + 2 + 2 + 5 = 11
В пункт G можно попасть из C, E и F. Самая короткая дорога из E.
В пункт E можно попасть из D и G. Самая короткая дорога из D.
В пункт D можно попасть из A, B, C, E и F. Самая короткая дорога из B и E. (E нас не интересует.)
Из пункта A можно попасть в B и D. Самая короткая дорога в B.
1)
uses crt;
var y,x:integer;
begin
writeln(x);
y:=COS(x/2)-SIN(x);
readln(y);
end.
2)
uses crt;
var a,y,x:integer;
begin
a:=0;
readln(x);
a:=0,5*x+1;
y:=0,5*sqr(a)+1,4*x-1;
writeln(y);
end.
3)
uses crt;
var d,x:integer;
begin
writeln(x);
d:=(1/3)*x*49+(4/6)*x*108+(2/6)*x*80;
readln(d);
end.
Ответ:
1
Объяснение:
связь между сдачей математики и информатики