Даны два числа a и b найдите их среднее арифметическое (a+b) / 2. если найденное значение превышает 15, вычислить и вывести на экран площадь прямоугольника со сторонами a и b

Question

Информатика

Даниша

15 октября, 16:05

Даны два числа a и b найдите их среднее арифметическое (a+b) / 2. если найденное значение превышает 15, вычислить и вывести на экран площадь прямоугольника со сторонами a и b

+4

Ответы (1)

Знаете ответ на вопрос?

Липа · Answer 1

Vara, b, sr_ar:real; beginwriteln ('Введите числа a и b: ') ; readln (a, b) ; sr_ar: = (a+b) / 2; if sr_ar>15 then writeln ('Площадь равна ', a*b) elsewriteln ('Среднее арифметическое этих чисел равен ', sr_ar) ; end.