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

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

Ответы 1

  • 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.

    • Автор:

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

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

Еще вопросы

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

Войти через Google

 или

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

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

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