Ввести два числа а и б. большее число заменить утроенным произведением, меньше полусуммой

Question

Информатика

Паисия

1 апреля, 22:41

Ввести два числа а и б. большее число заменить утроенным произведением, меньше полусуммой

+5

Ответы (1)

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

Катена · Answer 1

Var a, b:integer;

begin

writeln ('a=') ;

readln (a) ;

writeln ('b=') ;

readln (b) ;

if (a>b) then begin

b: = (a+b) / 2;

a:=3 * (a*b) ;

end

else

begin

a: = (a+b) / 2;

b:=3 * (a*b) ;

end;

writeln ('a=', a, ' b=', b) ;

readln;

end.