X,y,min: Integer; BEGIN Write( Vvedite X i Y: ); - вопрос №14676873 от drsoffia 02.07.2020 16:01

Question

Математика: X,y,min: Integer; BEGIN Write( Vvedite X i Y: ); Readln(x,y); If xElse min:=y; If x-yWriteln( MIN= ,min); Readln END. в чом ошибка

drsoffia · Answer

var x,y,z,min,a,b:integer;Begin read(x,y,z);a=sqr(x)+sqr(y)-4;b:=sqr(y)*sqr(x)-4;if  a b then min:=a else min:=b;writeln(min);End....

X,y,min: Integer; BEGIN Write('Vvedite X i Y: '); Readln(x,y); If xElse min:=y; If x-yWriteln('MIN= ',min); Readln END. в чом ошибка