Ребята, помогите написать по этим примерам програмки ** паскале ABC.NET очень срочно...

Question

Ребята, помогите написать по этим примерам програмки на паскале ABC.NET очень срочно надо!Для допуска на экзамен!Ну и можно за одно блок-верстки. Примеры: Часть 1: 19 и 32, Часть 2: 2

---

---

---

Comments

Напиши мне в sk vlad78909 или vk - wizardpro

Answer 1

32.
var d,b,c,y:integer;
begin
readln(d,b,c);
if d>0 then writeln(y=(1/sqrt(d))*arctan((b+c)/sqrt(d)));
if d=0 then writeln(y=(-1)/(b+c));
if d>5 then writeln(y=(1/(2*sqrt(d)))*ln(sqrt(d)));
readln;
end.

Могу только этот номер:D

Comments

Спасибо))