Разветвление в цикле. Вариант 4 Написать программу ** алгоритмическом языке PASCAL с...

Question

Разветвление в цикле.
Вариант 4
Написать программу на алгоритмическом языке PASCAL с использованием любого оператора цикла.

---

Comments

0 или 4?

---

Ну, 4 так 4)

---

4)

Answer 1

Ну... Как-то так)

var
  x, y: real;

begin
  x := 0.5;
  while x <= 25 do<br>  begin
    if x > 20 then
      y := sin(x)
    else
      if x <= 5 then<br>        y := sqr(cos(x))
      else
        y := sqrt(x);
    writeln('y(', x, ') = ', y);
    x := x + 1.5;
  end;
end.

Comments

нуу.. надеюсь 3-ку мне поставят)))

---

Бида...

---

огромное спасибо тебе.