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

pascal
составить программу с полным ветвлением

y=x*x если x<2
y=x*x*x если x>2
y=2+x если x=2

  1. Ответ
    Ответ дан asoiiu
    program dfgd;

    var
      x: integer;
      y: real;

    begin
      write('Введите х: ');
      readln(x);
      if x < 2
        then y := sqr(x)
      else
      if x > 2
        then y := power(x, 3)
      else y := 2 + x;
      writeln('y=', y);
    end.
Самые новые вопросы