Написать программу в ! периметр треугольника равен р, длина одной стороны равна а, другой-в.найти длину третьей стороны.

dim p, a, b

cls

print "введите длину   стороны а ="

input   а

print "введите длину   стороны b ="

input   b

print "введите длину   периметра р="

input   р

print "длина третей стороны =", p-(a+b)

end

Если 18 деревьев посадили в один ряд, то между ними всего 17 трёх метровых отрезков, что хорошо видно если это представить графически^ ||||||||||||||||||     1      2      3      4      5      6    7      8      9      10  11    12    13, 14    15    16  17 значит от первого дерева, до 18 будет 17*3=51 метр. ответ: 51 метр между крайними деревьями

Const      n = 10; m = 10; var    arr: array[1..n,1..m] of byte;     i,j,a,b,buff: byte; begin    for i: =1 to n do begin        for j: =1 to m do begin            read(arr[i,j]);         end;     end;   for j: =1 to m do begin        buff : = arr[1,j];         arr[1,j] : = arr[10,j];         arr[10,j] : = buff;     end;     writeln('==============');     for i: =1 to n do begin        for j: =1 to m do            write(arr[i,j]: 3);         writeln;     end; end.