1)Составить программу в паскале 2) и еще если можно выполнить в электронной книге **...

Question

1)Составить программу в паскале 2) и еще если можно выполнить в электронной книге на разных листах

ПС в паскале первые 3 блок схемы,остальное в электронной книге на разных листах ,очки не делать

---

---

---

---

---

Comments

какую из?

---

все 3

---

;lb

---

жди

---

первая почти готова

---

Ок,спасибо

Answer 1

Var  x: integer;
begin  Write('Введите значение x: ');  ReadLn(x);    if x >= 15 then  begin    x += 15;        if x > 20 then    begin      x *= 5;      x -= 25;    end  else    begin      x *= 3;      x += 13;    end  end else  begin    x += 6;        if x >= 10 then    begin      x *= 11;      x += 24;    end  else    begin      x *= 4;      x -= 8;    end  end;    Write(x);end.

Comments

var
a, b ,c, D, x1, x2: real;

begin
Write('Введите значение a: ');
Readln(a);
Write('Введите значение b: ');
Readln(b);
Write('Введите значение c: ');
Readln(c);

if ( a = 0 ) then
Writeln('Уравнение не является квадратным')
else
Begin
D:= Sqr(b) - (4*a*c);

if ( D < 0 ) then
Writeln('Корней нет')
else
Begin
x1:= ( -b -Sqrt(D) ) / ( 2*a );
x2:= ( -b +Sqrt(D) ) / ( 2*a );
Writeln('----');
Writeln('Ответы:');
Writeln('x1 = ', x1);
Writeln('x2 = ', x2);
End
End;
end.

---

Вот

---

третье

---

в вк напиши мне) vk . com/vffuunnyy

---

только пробелы сотри

---

зачем в вк?)

---

потому что я тут не хочу общаться)

---

окей

---

ладно, если надо пиши туда

---

))