Program R_BP;Uses crt;Var r,a,b,c,d:real;beginclrscr;write( 'Введите через "Enter" 4 числа ');read(a,b,c,d);r:=(a+b+c+d)/4;writeln('ответ ',r);end. 2 задача Program R_BP;Uses crt;Var r,a,b,c,d:real;beginclrscr;write( 'Введите ваш рост');read(a);writeln('Введите ваш вес ');readln(R);writeln('Ваш вес = ',r,' ваш ростс = ',a);end; var a,b,c,d:integer; x:real; begin write('Введите a,b,c: '); readln(a,b,c); //Дискриминант d:=sqr(b)-4*a*c; if d<0 Then writeln('Не имеет смысла') else if d=0 Then begin x:=-b/(2*a); writeln(x); end else begin x:= (-b + sqrt(D))/(2*a); writeln(x); x:= (-b - sqrt(D))/(2*a); writeln(x); end; end.
по Моргану и другим правилам ... =–А\/–В\/А=(–А\/А) \/–В=1\/–В=1