• Программа в паскале.Даются 3 натуральных числа,если сумма первых двух больше нуля,определите максимальное число,в ином случае вычислите среднее арифметическое.

Ответы 2

  • Пожалуйста
  • // PascalABC.NET 3.0, сборка 1150 от 22.01.2016var  a,b,c:integer;  r:real;begin  Writeln('Введите три числа: '); Read(a,b,c);  if a+b>0 then begin    r:=a;    if b>r then r:=b;    if c>r then r:=c    end  else r:=(a+b+c)/3;  Writeln('Результат равен ',r)end.Тестовые решения:Введите три числа: -5 8 11Результат равен 11Введите три числа: -3 -6 8Результат равен -0.333333333333333
    • Автор:

      andylewis
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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