Решите пожалуйста очень срочно 1 и 2

Question

Решите пожалуйста очень срочно 1 и 2

---

Answer 1

Program n_1;
Uses crt;
Var a,i,j:real;
Begin
Writeln('Введите a');
Read(a);
Writeln('Введите i');
Read(i);
Writeln('Введите j');
Read(j);
If a=5.5*i^2-2/i(2j^2-6j+1);
A=a

Comments

можно объяснить?

---

Там все просто, по формуле