Помогите решить задачи по Информатике в Паскале!!! Все 3 задачи.

Question

Помогите решить задачи по Информатике в Паскале!!! Все 3 задачи.

---

Comments

Физикъ555, я отправил заявку в друзья.

---

http://znanija.com/profil/Alviko-3473730 это Вы?Физикъ555?

---

Это тот, кто может научить=))

---

Это Вы?Просто интересно стало)

---

Ех, мне нужно дать ещё 3 лучших ответа, что бы можно было писать сообщение в Лс.

---

Вы приймите заявку в друзья?

---

Мы модем познакомится

---

Можем*

Answer 1

Первая:

Var X:real;
Begin
Write('X = ');ReadLn(X);
if X<6 then WriteLn(X*X);<br>if (X>=-6)and(X<6) then WriteLn(Abs(X)+4);<br>if X>=6 then WriteLn(X*(X+1))
End.

Вторая:

Var A,B:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
if ((A>=0)and(A<=15))or((B>=0)and(B<=15)) then WriteLn(A*A+B*B)<br>else WriteLn((A+B)/2)
End.

Третья:

Var A,B,C,D:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
D:=B*B-4*A*C;
if D>=0 then
Begin
WriteLn('X1 = ',(-B+sqrt(D))/(2*A));
WriteLn('X2 = ',(-B-sqrt(D))/(2*A));
End
else WriteLn('Корней нет')
End.

Comments

Спасибо, Физикъ555.

---

Физикъ555, можно стать вашем учеником!?

Answer 2

Задача 2
var a,b:real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if (a>=0) and (a <=15) or (b>=0) and (b<=15) then<br> writeln(sqr(a)+sqr(b))
else
writeln ((a+b)/2);
readln;
end.

задача 1


var x:real;
begin
write('x= ');
readLn(x);
if x<6 then WriteLn(sqr(x));<br>if (x>=-6)and(x<6) then <br>WriteLn(Abs(x)+4);
if x>=6 then
writeLn(x*(x+1))
end.

задача 3
Var a,b,c,d:real;
x1,x2:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
d:=sqr(b)-4*a*c;
if D>0 then begin
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
end;
if d=0 then writeln('koren=',-b/2*a);
if d<0 then writeln <br>('kornei net')
End.

Comments

Конечно=)

---

Что сам пойму - объясню=)) Хотя с трудом...

---

Но давай в ЛС перейдёт=))

---

Как же весело будет антиспамеру, когда он всё это удалять будет=D