Выполните на компьютере программу evklid. протестируйте ее на значениях м= 32, n = 24; м = 696, n = 234.

Нахождение наибольшего общего делителя, если я правильно понял? program evkild; var   a, b: integer; begin   write('введите a: ');   readln(a);   write('введите b: ');   readln(b);   while (a < > 0) and (b < > 0) do   if a > = b then       a : = a mod b   else       b : = b mod a;   writeln('наибольший общий делитель = ', a + b);   readln; end.

А) 1. const x0=0; xk=pi; h=pi/2; var x,y: real; i: integer; begin x: =x0-h; for i: =0 to round((xk-x0)/h) do   begin   x: =x+h;   y: =0.5*x+sqr(sin(x));   writeln(x: 5: 2,' ',y: 6: 4);   end; end. 2. const x0=0; xk=pi; h=pi/2; var x,y: real; i: integer; begin x: =x0-h; while x< xk do   begin   x: =x+h;   y: =0.5*x+sqr(sin(x));   writeln(x: 5: 2,' ',y: 6: 4);   end; end. 3. const x0=0; xk=pi; h=pi/2; var x,y: real; i: integer; begin x: =x0-h; repeat   x: =x+h;   y: =0.5*x+sqr(sin(x));   writeln(x: 5: 2,' ',y: 6: 4); until x> =xk; end. результат: 0.00 0.00001.57 1.78543.14 1.5708б)var x,y: real; beginreadln(x); y: =(3-sin(2*x))*cos(x/3); writeln('y = ',y: 6: 4); if y< 0 then writeln('функция отрицательна')  else if y> 0 then writeln('функция положительна')  else writeln('функция = 0'); end.пример: 1.5y = 2.5089функция положительна