Рассмотрите легковой автомобиль и футбольная команда как систему взаимодействующую с окружающей средой.опишите входы и выходы

Легковой автомобиль загрязняет футбольная команда, даже не знаю, топчит траву, расходует кислород, вооббще вопрос не совсем да и причем здесь информатика?

Перебираешь все взаимно  простые  m > n разной четности, так чтобы m*m было меньше 30. и формируешь тройки по формуле: k*(m*m-n*n, 2*m*n, m*m + n*n) например так: function gcd(a,b: integer): integer; begin   if b = 0 then gcd : = a   else if (a > b) and (b > 0) then gcd : = gcd(b, a mod b)   else gcd : = gcd(b, a); end; procedure print(m,n: integer); var i, a, b, c: integer; begin   repeat     i : = i + 1;     a : = (m*m-n*n)*i;     b : = 2*m*n*i;     c : = (m*m+n*n)*i;     if c < 30 then       writeln(a, ' ', b, ' ', c)     else break;   until false; end; var m, n, s: integer; begin   s : = trunc(sqrt(30));   for m : = 1 to s do     for n : = m + 1 to s do        if (gcd(n, m) = 1) and ((m mod 2)< > (n mod 2)) then         print(n, m) end.

Прежде чем писать программу, попробуем ее формализовать. мы знаем, что периметр прямоугольника равен р = 2*(a+b), а площадь равна s=a*б, где a и b - две стороны прямоугольника. тогда b =s/a, а периметр p =2a +2b или 2a+2s/a. отсюда a*p = 2a² +2s. имеем квадратное уравнение: a²-a*p/2+s=0, решая которое относительно а (сторона прямоугольника) при известных коэффициентах p и s, получим значение сторон прямоугольника. в программе я не проверяю, что введены именно положительные периметр и площадь, надеясь на внимательность вводящего данные. итак: program storona; uses crt;   { используем экран} var            b,p,s,d,x1,x2: real;   {наши переменные} begin   clrscr; {чистим экран}   write('wwedite perimetr  p: ');   readln(p);   write('wwedite ploshad s: ');   readln(s);   {вычисляем дискриминант}   b: =-p/2;   d: = b*b - 4*s;   if d > 0 then  {если дискриминант > 0 - все хорошо} begin   x1: = (-b + sqrt(d))/2;   x2: = (-b - sqrt(d))/2;   writeln('storona1 = ',x1: 0: 2); {ответ с двумя знаками после запятой}   writeln('storona2 = ',x2: 0: 2); end; {если дискриминант равен 0, то тоже неплохо: у нас квадрат}   if d = 0 then begin   x1: = -(b/2);   writeln('storona1 = ',x1: 0: 2);   writeln('storona2 = ',x1: 0: 2); end; {если дискриминант меньше 0, плохо, выводим сообщение}   if d < 0 then begin   writeln('ошибка в данных); end;   readln; end.