Question

Создайте программу в Паскаль и блок-схему.

Answer 1

var x,y:integer;L,M,N,min:real;BeginWriteln('введите значение y');Readln(y);x:=2*y;min=0;L:=x/y; Writeln('L=',L:2:2);M:=sin(x+y);Writeln('M=',L:2:2);N=sqrt(abs(x*y));Writeln('N=',L:2:2);If (L>M) and (M<N) then min:=M     else         If (L<N) and (L<M) then min:=L    else         If (N<L) and (N<M) then min:=N;Writeln('min=',min:2:2);readln;end.