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

1

Ответы и объяснения

2013-03-04T16:20:39+00:00

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.