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

Question

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

---

Answer 1

УРОВЕНЬ В
№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<br>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<br>y:=(sqrt(x*x+4*x-5))/(2*x+7)
else
y:=(abs(x-100)+x*x*x)/(3*x+7);
writeln(y);
end.

Comments

спасибо

---

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

---

спасибо

Answer 2

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

Comments

А второе задание УРОВЕНЬ А , ты увеен?

---

да

---

а откуда ты?

---

из Алматы

---

А ты?

---

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

---

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

---

lf gj;fkeqcnf

---

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