Нужна помощь с паскалем

Question

Нужна помощь с паскалем

---

Answer 1

Program al;
var k,p:integer;
i:real;
begin
writeln('k=');
readln(k);
writeln('p=');
readln(p);
i:=0;
if k> abs(p) then i:=3*k*k*k+2*sqr(p);
if k< abs(p) then i:= abs( k-p);
if k=abs(p) then i := sqr ( k-p);
writeln(' znacenie i=',i);
readln;
end.

Comments

а можешь помочь вот с этим? http://znanija.com/task/12533225

---

хотя бы как нибудь, буду премного благодарен)

---

завтра отчитка двух семестровых, сам я никак обе сделать не успею, вот и полагаюсь на помощь)

---

Ну ладненько, ночь длинная, пади и сам разберусь) спасибо тебе ещё раз за всё)

---

))

Answer 2

Uses crt;
var i,k,p:real;
begin
writeln('Введите k и p');
readln(k,p);
if k>abs(p) then i:=3*sqr(k)*k+3*sqr(p);
if kif k=abs(p) then i:=sqr(k-p);
write(i);
end.

Comments

Спасибо большое)

---

Не за что