• Помогите пожалуйста составить программу правильно!!!!!
    Вот условие:
    Даны два действительных числа X и Y, не равные друг другу. Заменить меньшее из этих чисел половиной их суммы, а большее – их удвоенным произведением. Программа должна иметь дружественный интерфейс.

    На Паскале

Ответы 1

  • Var x,y,t:real;Beginwrite('x = ');readln(x);write('y = '); readln(y);if x>y thenBegin  t:=y;  y:=(x+y)/2;  x:=x*t*2;EndelseBegin  t:=x;  x:=(x+y)/2;  y:=x*t*2;End;writeln('X = ',x:0:2);writeln('Y = ',y:0:2);readln;End.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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