Составить блок-схему и программу решения задачи ** языке Pascal.

Question

Составить блок-схему и программу решения задачи на языке Pascal.

---

Answer 1

Блок-схема во вложении.

var
  x,y,c:double;
begin
  Write('x='); Read(x);
  Write('y='); Read(y);
  if x=y then c:=sqr(x+y)+sin(x)
  else
    if (x-y)=3 then c:=(x+y)*sqr(x+y)+cos(x)
    else c:=x+y+tan(x);
  Write('c=',c)
end.

Тестовое решение:
x=0.563
y=-1.514
c=-0.319863379954563

---