Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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

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