Сделайте program ** языке pascal. 25 баллов.

Question

Сделайте program на языке pascal. 25 баллов.

---

Answer 1

Var
i,j:integer;
E,X:real;
Begin
E:=0;
Write('X = ');Read(X);
For i:= 1 to 4 do
    For j:= 1 to 5 do
        E:=E+(i*j-ln(X));
WriteLn(E)
End.

Answer 2

var i,j:integer;
y,x: real;
begin 
y:=0;
read(x);
for i:=1 to 4 do  
       for j:=1 to 5 do                   
            y:=y+(i*j-Ln(x));        
write(y:0:3); 
end.

Comments

1.3013496453979431E+002

---

А как избавиться от экспоненциальной формы?

---

Нашел

---

write(y:0:3);

---

Ой спасибо)

---

посмотрите у меня в вопросах про а.я есть, также 25 баллов этот же пример