• Составить программу в Паскале
    Даны 2 действительных числа, не равные друг другу. Меньшее из них заменить половиной их суммы, а большее- их утроенным произведением. Ввод и вывод с комментариями.

Ответы 1

  • var a,b,c:real;

    begin

       readln(a,b);

       if(a > b) then

           begin

               writeln('a Больше');

               c := a;

               a := a*b*3;

               b := (b+c)/ 2;

               writeln('a = ',a,'   b = ',b);

           end;

    if(b > a) then

           begin

               writeln('b Больше');

               c := b;

               b := a*b*3;

               a := (a+c)/ 2;

               writeln('a = ',a,'   b = ',b);

           end;

    end.

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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