Задать вопрос Регистрация
Помочь другим

  • ПОМОГИТЕ ПОЖАААЛУСТА! 

    Даны 2 действительных числа a,b. Вывести первое, если оно больше второго и оба числа в противном случае. Составить програму

    даны 2 числа Х , У  меньшее из них заменить иполусуммой , большее -удвоенным произведением этих чисел. составить программу

     

     

Ответы 1

  • 1)

    uses crt;

    var

    a,b:integer;

    begin

    clrscr;

    read(a,b);

    if a>b then write(a) else write(a,';',b);

    end.

     

    2)

    uses crt;

    var

    x,y,x1,y1:real;

    begin

    read(x,y);

    x1:=x; y1:=y;

    if x<y then begin x:=(x1+y1)*(1/2); y:=(x1*y1)*2; end else begin y:=(x1+y1)*(1/2); x:=(x1*y1)*2; end;

    write('x=',x,',','y=',y);

    end.

    • Автор:

      tomas
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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