Дана равнобедренная трапеция,боковая сторона А, одно из оснований В, дан периметр. найти...

Question

Дана равнобедренная трапеция,боковая сторона А, одно из оснований В, дан периметр. найти второе основание и вывести на экран
на Паскале

Answer 1

Var a,b,c,p:integer;
begin
writeln('a, b, p:');
readln(a,b,p);
c:=p-(2*a+b);
writeln('c = ',c);
end.

Пример:
a, b, p:
4 10 25
c = 7