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

Пожалуйста решите, очень надо...

  1. Ответ
    Ответ дан pacixor
    var
      a, x, y, t: real;
    begin
      t := 0;
      write('a = '); readln(a);
      write('x = '); readln(x);
      write('y = '); readln(y);
      if ((a + x) > 0) then t := a + x * x * x;
      if ((a + x) = 0) then t := 4 * a;
      if ((a + x) < 0) then t := sqrt(abs(a * x + 1));
      writeln('t = ', t);
    end.
Самые новые вопросы