Решите пожалуйста по информатике ​

Question

Решите пожалуйста по информатике ​

---

Answer 1

var e,f,g,d,a,b,c,x1,x2:real;

begin

writeln('Введите значение e: ');

readln(e);

writeln('Введите значение f: ');

readln(f);

writeln('Введите значение g: ');

readln(g);

a:=e+sqrt(sqr(abs(f-g))*abs(f-g));

b:=(f/g)+7;

c:=(15+f)/(17+g);

d:=sqr(b)-4*a*c;

x1:=(-b+sqrt(d))/(2*a);

x2:=(-b-sqrt(d))/(2*a);

writeln('a = ',a);

writeln('b = ',b);

writeln('c = ',c);

writeln('d = ',d);

writeln('x1 = ',x1);

writeln('x2 = ',x2);

end.

Comments

а можно по русски? желательно в кумире

---

так-с,я в кумире не работал но там одно и то же вроде,сейчас посмотрю в интернете

---

вместо "var" напишите "вещ", вместо "writeln" - "вывод",вместо "readln" - "ввод",вместо "end" - "кон"

---

спасибо огромное)

---

пожалуйста