• Помогите!!! Постройте в программе Паскаль!!! С помощью Алгоритма ВЕТВЛЕНИЯ!!!!


    Пример(неправильно):
    Program Z1;
    Var x,y:real;
    begin
    Write('Введите значение x,y');
    Read(x,y);
    IF (x<1) THEN
    y:=sqr(x)else
    y:=5*x;
    Write('Больше или равно')
    Write('Меньше');
    End.

    question img

Ответы 2

  • Var x,y:real;beginWrite('Введите значение x');Read(x);IF (x<1) THENy:=sqr(x)elsey:=5*x;Write(y);End.
    • Автор:

      roderick
    • 6 лет назад
    • 0
  • Program Z1;Var x,y:real;beginWrite('Введите значение x = ');Readln(x);if x>=1 then y:=5*x else y:=sqr(x);Write('y=',y);End.Пример:Введите значение x = 3y=15
    • Автор:

      velez
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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