Можно подробное решения

а) A•А+А•В= А²+В²

б)А•В+А•В+А•В=А³+В³

ж) А•С+В•С=АВ•С²

з) (А+С)+(В+С)=АБ•С²

Объяснение:

Здесь все переводится в степени. Если тут три множителя А, то пишем А³, если два множителя , то пишем ², если тут один множитель, то просто пишем множитель без степень.

Надеюсь понятно.

№1  var s,v,t,a: real;   begin  writeln('введите скорость, ускорение и время соотвественно');   read(v,a,t);   s: =v*t+(a*sqr(t))/2;   writeln('расстояние s = ',s);   end. №2 var a,b,c,d,m,n: integer;   begin  writeln('введите ширину и высоту комнаты');   read(a,b);   writeln('введите размеры окна');   read(c,d);   writeln('введите размеры двери');   read(m,n);   writeln('площадь стен для оклеивания обоями = ',a*b-c*d-m*n);   end. №3 var a,b: real;   begin  writeln('введите два числа');   read(a,b);   writeln('среднее арифметическое кубов этих чисел = ',(power(a,3)+power(b,3))/2);   writeln('среднее модулей этих чисел = ',sqrt(abs(a*;   end. №4 var x: real;   begin  writeln('введите ребро куба');   read(x);   writeln('площадь грани = ',sqr(x));   writeln('площадь полной поверхности = ',6*sqr(x));   writeln('объем куба = ',power(x,3));   end. №5 var r1,r2: real;   begin  writeln('введите внешний и внутренний радиус');   read(r1,r2);   if r1< r2 then writeln('внешний радиус должен быть больше внутреннего') else  writeln('площадь кольца = ', pi*sqr(r1)-pi*sqr(r2));   end.