даны три числа , найти квадрат суммы наибольшего и наименьшего из них язык PASKAl
Answers & Comments
trojanbackdoor
Var a, b, c: integer; begin readln (a, b, c); if a>b>c or c>b>a then sqr(a+c); if b>a>c or c>a>b then sqr(b+c); if a>c>b or b>c>a then sqr(a+b) end.
Не компилировала, логика подобная. вывода нет, так как вывести не сказано
Answers & Comments
begin
readln (a, b, c);
if a>b>c or c>b>a then sqr(a+c);
if b>a>c or c>a>b then sqr(b+c);
if a>c>b or b>c>a then sqr(a+b)
end.
Не компилировала, логика подобная. вывода нет, так как вывести не сказано