profile
Опубликовано 6 лет назад по предмету Информатика от Grap32

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

  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

Самые новые вопросы