Программа в паскале, помогите пожалуйста.
Даны два действительных числа. Составьте программу, которая меньшее из них заменяет их полусуммой, а большее - их произведением.
Даны два действительных числа. Составьте программу, которая меньшее из них заменяет их полусуммой, а большее - их произведением.
More Questions From This User See All
Answers & Comments
var x,y,c:real;
begin
read(x,y);
if x>y then
begin
c:=y;
y:=(x+y)/2;
x:=x*c;
end
else
begin
c:=x;
x:=(x+y)/2;
y:=y*c;
end;
write('x=',x,'y=',y)
end.