Question

Помогите пожалуйста все, что сможете буду очень благодарна!!!!!!!!!! 25 баллов! СРОЧНО!!!!!!!!!!

Answer 1

Уровень 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.

Answer 2

А ты?

Answer 3

Чувашия. Просто валюта приблизительно одинакова у вас тенге а у нас тенке

Answer 4

уровень b надо решать?

Answer 5

lf gj;fkeqcnf

Answer 6

Да пожалуйста

Answer 7

УРОВЕНЬ В
№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.

Answer 8

спасибо

Answer 9

добавил уровень с

Answer 10

спасибо