Насчет третьего - под б) нетривиальный метод(подстановка), но я уверен, что он правильный.
//PascalABC.NET 3.0
begin
for var i := 1 to 10 do
begin
for var j := 1 to 10 do
if i = 1 then write(j : 3)
else if j = 10 then write(9 + i : 3)
else if i = 10 then write(29 - j : 3)
else if j = 1 then write(38 - i : 3)
else write(0 : 3);
writeln;
end;
<span>end.</span>
Г А 1 (в Г одна дорога - из А)
В АГ 2 (в В две дороги из А и Г)
Б АВ 3
Е БВГ 6
Д Б 3
К ДЕ 9 ответ 9
1) program first;
var a,b,c:integer;
begina := 30;b := 14;
a := a - 2 * b;
if a > b then
c := b + 2 * a
elsec := b - 2 * a;
writeln (c);
<span>end.
в итоге с:=10
2) </span>program first1;
var a,b,c:real;
begina := 30;
b := 6;
a := a * 3 / b;
if a < b then
c := 3*a - 5 *(b+3)
elsec := 3*a + 5 * (b+3);
writeln (c);
<span>end.
</span>в итоге с:=90
по аналогии выполняются другие примеры если условие выполняется, то решаем первое выражение, если нет то второе условие это например if a < b