Даны два числа a и b найдите их среднее арифметическое (a+b)/2.если найденное значение...

Question

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

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.

Comments

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