Ответы
Ответ дал:
0
Var
A,B:real;
Begin
WriteLn('(a+b)^2 = a^2 +2ab +b^2');
WriteLn('Введи значения a и b через пробел');
ReadLn(A,B);
WriteLn(sqr(A),' +',2*a*b,' +',sqr(b));
Вас заинтересует
2 года назад
8 лет назад
8 лет назад
10 лет назад
10 лет назад
10 лет назад