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

Question

Информатика

Леоня

17 июля, 12:28

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

+3

Ответы (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.