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

149

337

Посмотреть ответы 2

Ответы на вопрос:

Natali250707

Информатика

4,6(33 оценок)

// pascalabc.net 3.0, сборка 1150 от 22.01.2016 var 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