• 22 December 2013
    • Қазақ тiлi
    • Автор: Balgynd

    Помогите пожайлуста ) Даны два неравных числа a и b.Меньшее из этих чисел заменить полуссумой a и b а большее их полуразность..пожаалуйста помогите


    • 22 December 2013
    • Ответ оставил: 54ytye

    Program qwertr;
    var a,b,c: integer;
    begin 
    read (a,b)
    if (a<b) then
    begin 
    c:=(a+b)/2;
    end;
    else
    c:=(a-b)/2;
    end;
    write (c);
    end.

    Оцените ответ
    • 22 December 2013
    • Ответ оставил: Ева03Козлова

    uses crt;
    var a, b, c, i :integer;
    begin
       clrscr;
       writeln ('Введите числа');
       readln (a, b);if a>b then
          writeln ('a = ', (a-b)/2:0:10, ' b = ', (a+b)/b:0:10);
       if a<b then
          writeln ('b = ', (a+b)/b:0:10, ' a = ', (a-b)/2:0:10);
    end.

    P.S. Надеюсь на благодарность и лучший ответ.

    Оцените ответ

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету...

Последние и похожие вопросы

Ответ на вопрос Помогите пожайлуста ) Даны два неравных числа a и b.Меньшее из этих чисел заменить полуссумой a и b а большее их полуразность..пожаалуйста помогите - Вопросов.Нет

404