Помогите пожалуйста составить задачу:Даны 2 числа,меньшее из них заменить их полусуммой этих чисел,а большее произведением. Задача решение в паскале.

1

Ответы и объяснения

2013-12-14T12:13:09+00:00
Var x,y,c:ineger;
begin
readln(x,y);
c:=y;
if x>y then
begin
y:=(x+y)/2;
x:=x*c;
end;

if xbegin
c:=x;
x:=(x+y)/2;
y:=x*c;
end;
end.