Даны два числа a и b. Меньшее из них замените полусуммой этих чисел, а большее - произведением этих чисел

Question

Информатика

Светозар

4 июня, 00:17

Даны два числа a и b. Меньшее из них замените полусуммой этих чисел, а большее - произведением этих чисел

+1

Ответы (1)

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

Полюха · Answer 1

var a, b, s, p:real;

begin

readln (a, b) ;

s: = (a+b) / 2;

p:=a*b;

if a
else begin b:=s; a:=p; end;

writeln ('a = ', a:4:2,' b = ', b:4:2) ;

end.

Пример:

15 27

a = 21.00 b = 405.00