Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

написать программу в паскале определяющую и выводящую наибольшее из трех чисел

Ответ оставил Гость

Program MAXOF3;

Var a,b,c,t,max: Real;

Begin

    Writeln(Type 3 different numbers);

    Write(a = ); Read(a);

    Write(b = ); Read(b);

    Write(c = ); Read(c);

    t := (a+b)/2 + abs(a-b)/2; {abs(x) - модуль числа х}

    max := (t+c)/2 + abs(t-c)/2;

    Writeln(max = , max:2); {:2 - количество знаков после запятой}

End.