Помогите пожалуйста все, что сможете буду очень благодарна!!!!!!!!!! 25 баллов! СРОЧНО!!!!!!!!!!
Помогите пожалуйста все, что сможете буду очень благодарна!!!!!!!!!! 25 баллов! СРОЧНО!!!!!!!!!!
Гость
Ответ(ы) на вопрос:
ГостьУровень 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.
ГостьУРОВЕНЬ В
№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.
Не нашли ответ?
Похожие вопросы