Помогите пожалуйста все, что сможете буду очень благодарна!!!!!!!!!! 25 баллов! СРОЧНО!!!!!!!!!!
Answers & Comments
Endok
Уровень A 1 var x,y:real; begin Readln(X); If x>5 then y:=(sqrt(x-5))/(2*x) else y:=(abs(x*x*x-10))/(2*x*x+1); Writeln(y); end. -5 2.64705882352941 -2 2 0 10 5 2.25490196078431 12 0.110239637961025
2 var a,b:integer; begin Readln(a,b); Writeln(max(a,b)); Writeln(max(a,b)-min(a,b)); end.
fikortУРОВЕНЬ В №1 var i:integer; begin readln(i); if i mod 2 =0 then writeln('число ',i,' четное') else writeln('число ',i,' нечетное'); end. №2 var x,y:real; begin readln(x); if x<=0 then y:=(abs(x-10)+x*x*x)/(3*x-5) else y:=(sqrt(x+4))/(2*x+7); writeln(y); end. УРОВЕНЬ С №1 var r,a:real; begin readln(r,a); if r*2=a then writeln('окружность можно вписать') else writeln('окружность нельзя вписать'); end. №2 var x,y:real; begin readln(x); if (x>=-5) and (x<10) then y:=(sqrt(x*x+4*x-5))/(2*x+7) else y:=(abs(x-100)+x*x*x)/(3*x+7); writeln(y); end.
Answers & Comments
1
var x,y:real;
begin
Readln(X);
If x>5 then
y:=(sqrt(x-5))/(2*x)
else y:=(abs(x*x*x-10))/(2*x*x+1);
Writeln(y);
end.
-5 2.64705882352941
-2 2
0 10
5 2.25490196078431
12 0.110239637961025
2
var a,b:integer;
begin
Readln(a,b);
Writeln(max(a,b));
Writeln(max(a,b)-min(a,b));
end.
№1
var
i:integer;
begin
readln(i);
if i mod 2 =0 then
writeln('число ',i,' четное')
else
writeln('число ',i,' нечетное');
end.
№2
var
x,y:real;
begin
readln(x);
if x<=0 then
y:=(abs(x-10)+x*x*x)/(3*x-5)
else
y:=(sqrt(x+4))/(2*x+7);
writeln(y);
end.
УРОВЕНЬ С
№1
var
r,a:real;
begin
readln(r,a);
if r*2=a then
writeln('окружность можно вписать')
else
writeln('окружность нельзя вписать');
end.
№2
var
x,y:real;
begin
readln(x);
if (x>=-5) and (x<10) then
y:=(sqrt(x*x+4*x-5))/(2*x+7)
else
y:=(abs(x-100)+x*x*x)/(3*x+7);
writeln(y);
end.