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

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

Ответы 1

  • 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.
    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years